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1 .   Introduction 

"Modified  Sand"  is  a  computer  program  for  the  general 
analysis  of  an  embankment  foundation  on  a  soft  soil  with  con- 
sideration of  vertical  and  horizontal  consolidation  without  any 
sand  drain  installations.   This  is  a  modified  version  of  the  pro- 
gram SAND  (Krizek  and  Krugmann,  1972)  that  can  be  used  to  analyze 
this  problem  with  consideration  of  vertical  sand  drains.   The 
solution  technique  in  the  modified  program  remains  the  same  as  in 
the  original  program. 

1  .1   Capabilities  of  Modified  Sand 

This  program  optimizes  the  rate  at  which  a  specific  highway 
embankment  can  be  constructed  on  soft  soil.   This  problem 
involves  the  computation  of  stresses  and  pore  pressures  in  the 
subsoil,  the  dissipation  of  these  pore  pressures,  the  correspond- 
ing increase  in  shear  resistance  and  stability  of  the  embankment. 


The  embankment  load  which  is  assumed  to  act  vertically, 
induces  pore  pressures  in  the  subsoil  which  are  computed  using 
Theory  of  Elasticity  and  Skempton's  pore  pressure  parameters  (A, 
B).   These  pore  pressures  dissipate  according  to  three  dimen- 
sional consolidation  theory  which  takes  into  account  the  effect 
of  gas  and  variable  soil  parameters.   The  solution  of  consolida- 
tion equations  are  solved  numerically  by  treating  it  as  an  eigen- 
value problem.   As  the  pore  water  pressure  dissipates  the  effec- 
tive stresses  in  the  subsoil  will  increase  giving  a  simultaneous 
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increase  in  shearing  resistance.   Settlements  are  computed  from 
the  dissipated  pore  pressures. 

There  are  two  options  available. 

Option  1:   (For  ISP  =  0)  --  The  program  determines  the  times 
at  which  each  lift  whose  resulting  shapes  are  input  can  be  con- 
structed without  exceeding  the  bearing  capacity  of  the  subsoil 
and  after  a  specified  fraction  of  a  reference  settlement  has 
occurred.   Settlements  and  average  degree  of  consolidation  are 
output  for  specified  points  in  a  graphical  form. 

Option  2_:  (ISP  =  1)  —  The  lifts  and  times  of  lift  applica- 
tion are  input  and  the  program  determines  the  dissipation  of  pore 
pressures  and  settlements  for  specified  points.  Bearing  capacity 
of  the  foundation  soil  is  not  analyzed. 


2  .   Description  o  f  the  Program 

Described  in  the  subsequent  sections  is  the  set  of  computer 
programs  which  can  be  used  to  analyze  an  embankment  foundation  on 
a  soft  soil  with  consideration  of  vertical  and  horizontal  conso- 
lidation.  Individual  routines,  consisting  of  main  program  "Modi- 
fied Sand"  are  written  in  FORTRAN  77.   Program  listing  is 
attached  in  Appendix  A.   The  programs  have  been  tested  in  IBM  PC 
XT  and  VAX  11/780  at  Purdue  University. 

Each  subsection  of  the  program  is  given  below  explaining  the 
f  ol lowi  ng : 
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1.  Purpose  of  the  program. 

2.  Usage  of  the  program. 
3  .  Block  names. 

4.  Description  of  parameters. 

5.  Method  of  solution  or  calculation. 

6.  Subroutines  required. 

In  addition  a  list  of  sequence  of  input  of  data  into  the 
main  program  is  given. 

Two  sample  problems  which  illustrate  most  of  the  special 
features  of  the  programs  and  solutions  to  these  problems  are 
attached. 

2  .  1   The  Main  Program  Modified  SAND 
Purpose  of  the  Programs: 

SAND  --  To  analyze  an  embankment  foundation  on  a  soft  soil 
for  stability  and/or  settlements  and  consolidation  behavior  with 
consideration  of  horizontal  and  vertical  drainage. 

Block  Names  and  Lengths: 


SAPOD/  IOUTP.W ,HH ,G LOAD , CLOAD , N ARC , N RAD ;  length:   7  words 
SADI1/  LAYER, IBCV, MHE, M, N , IDC, NDR.ISUM;  XET(41);  length:   49  words 
SADI2/  FIMPV,RC,RK,C ,RO,RE , T A , I S P , I  V AR ;  length:   29  words 
SACSE/  ROC,ROCL,SVM,P,PC,PLOG,PO,PCO  ,  I AV , I K , I S AT , AAV , AAH ;  length: 

5  4  words 
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SAC01/  AVOC ,KVO,KHO ,EOPUS  ,PU, SKHM.SKVM  ,CCC  ,NNN  ,ICOEF;   length: 

10  words 

SAC02/     PCV( 10) ,CVIN( 10) ,PCH( 10) ,CHIN( 10) , I CV ,KOUNT,HF;     length: 

A3    words 

SADET/  XSTAB( 5 1 )  ,YSTAB(  1 1 ) , DX ,DY  ,YWM  ,TGPHI ;  length:   66  words 

These  blocks  are  only  defined  in  program  SAND 

SAPOD  is  needed  in  subroutines  DET FS , D I SP , I NI T  ,  PORE  ,  and  VARYR 

SADI1  and  SADI2  are  needed  in  subroutine  DISP 

SACSE  is  needed  in  subroutines  C0EF  and  SETL 

SAC01  and  SAC02  are  needed  in  subroutine  COEF 

SADET  is  needed  in  subroutine  DETFS 

Description  of  Parameters 

On  the  following  pages  are  described  the  parameters  which 
are  input  by  the  user;  quantities  listed  in  labelled  COMMON 
blocks  are  given  in  the  respective  subroutines.   This  list  is 
given  in  alphabetical  order.   Section  (3)  provides  the  list  where 
data  cards  of  the  parameters  appear  in  the  sequence  in  which  they 
are  needed  in  the  programs.   The  asterisk  *  refers  to  a  note  at 
the  end  of  the  list. 


A 
AVO 


AX(I) 


-  Skempton's  pore  pressure  coefficient 

-  constant  coefficient  of  compressibility  to  be 
used  in  the  settlement  computations;  in  the  case 
of  two  layers,  AVO  applies  to  the  upper  layer; 
dimension;   ft/lb 

-  subinterval  limits  to  be  input  as  decimal 
fractions  of  reference  value  W;  1=1, NI  where 
NI  <  5 
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B 
BLANK 

C 


Skempton's  pore  pressure  coefficient 

symbol  to  be  used  in  the  resulting  plots 

fraction  of  the  reference  load  at  time  TA,  which 
is  applied  at  time  equal  to  zero;  may  vary 
bet  ween  0.0  and  1.0 


CC 


CLOAD 


C0(I) 


COUNT* 


compression  index;  negative  slope  of  the  void 
ratio  versus  effective  stress  curve  (virgin 
part  of  the  curve);  in  the  case  of  two  layers, 
CC  is  the  compression  index  of  the  upper  layer 

undrained  strength  of  the  embankment  oil 
dimension  -  psf 

initial  undrained  strength  of  the  subsoil;  1=1, 
NC  where  NC  <  MY  E  «;  11.   If  NC  <  MYE, 
Lagrangean  interpolation  is  used  to  compute 
the  undrained   strengths  at  MYE  equally  spaced 
depths.   If  NC=MYE,  the  input  values  must  be 
provided  at  equally  spaced  points  where  1=1  and 
I=MYE  coincide  with  the  surface  and  the 
bottom  of  the  compressible  layer,  respectively; 
dimension  -  psf 

marker  to  indicate  the  last  residual  pore  water 
pressure  data  card;  this  parameter  is  zero 
on  all  residual  pore  water  pressure  data 
cards,  except  on  the  last  card,  where  it 
must  take  value  different  from  zero 


CP(  I) 


CH 


CHIN( I) 


(c/p)-ratios  of  the  subsoil;  1=1, 
NC;  see  remarks  under  C0(I) 

constant  coefficient  of  consolidation  in 
horizontal  direction;  in  case  of  two 
layers,  CH  applies  to  the  upper  layer; 
dimension  -  ft  /day 

variable  coefficients  of  consolidation  in 
horizontal  direction;  1=1, ICV  <  10;  stress 
dependent  coefficients  of  consolidation 
in  horizontal  direction  are  obtained 
within  subroutine  COEF  by  interpolation 
between  the  CHIN- values;  dimension  - 
ft  /day 
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CV 


CVIN(  I) 


constant  coefficient  of  consolidation  in 
the  vertical  direction;  in  case  of  two 
layers,  CV  applies  to  the  upper  layer; 
dimension  -  ft  /day 

variable  coefficients  of  consolidation 
in  the  vertical  direction;  1=1,  ICV  <  10; 
stress-dependent  coefficients  of  con- 
solidation in  the  vertical  direction 
are  obtained  within  subroutine  COEF  by 
interpolation  between  the  CVIN-values; 
dimension  -  ft  /day 


DMAX 


maximum  step  size  to  be  used  in  the  variation 
of  XC  and  YC  in  the  search  procedure  for 
the  minimum  factor  of  safety;  dimension 
-  feet 


DMIN 


minimum  step  size  to  be  used  in  the  variation 
of  XC  and  YC  in  the  search  procedure  for 
the  minimum  factor  of  safety;  dimension 
-  feet 


EO 


initial  void  ratio;  in  the  case  of  two  layers, 
EO  applies  to  the  upper  layer 


FSI 


factor  of  safety  which  is  required  at  the 
time  of  application  of  a  new  load 


GAMMA 


effective  unit  weight  of  the  subsoil, 
constant  over  the  thickness  of  the  com- 
pressible layer;  this  value  is  needed  in 
the  settlement  computations  using  the 
compression  index;  if  GAMMA=0,  input  of 
MYE  effective  overburden  stresses  at 
equally  spaced  depths  must  be  input; 
dimension  -  pcf 


GLOAD 


unit  weight  of  the  embankment  soil, 
dimension  -  pcf 


GRID 


symbol  to  be  used  in  the  resulting  plots 
to  mark  the  10%  coordinates;  proposed 
to  be  the  letter  I 


thickness  of  the  compressible  layer; 
if  H= 0 ,  the  program  is  terminated; 
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if  H=99,  a  branch  i9  made  to  the 
beginning  of  the  programs;  dimension 
-  feet 


HC 


HI 


Henry's  constant  of  gas  solubility, 
HC=0.020  for  atmospheric  air, 
HC=0.029  for  methane,  H02.84 
for  hydrogen  sulfide  (at  68  F) 

thickness  of  the  "impedance  layer" 
underlying  the  compressible  soil; 
the  "impedance  layer"  must  have  a 
freely  draining  lower  surface,  a 
coefficient  of  compressibility  which 
is  negligibly  small  compared  to  that 
of  the  consolidating  soil,  and  a 
permeability  of  the  same  order  of 
magnitude  as  that  of  the  consolidation 
soil;  dimensions  -  feet 


I  AB 


identifier  where  - 
IAB=0  -  Skempton's 


IAB=1  - 


pore  pressure  coefficients 
A  and  B  as  defined  for  the  last  load 
are  also  used  to  compute  the  pore 
water  pressures  due  to  the  load  addition 
redefine  A  and  B 


I  AV 


I  BCV 


-  identifier  where  - 

IAV=0  -  use  a  constant  coefficient  of  compress- 
ibility in  the  settlement  computations 

IAV=1  -  use  the  compression  indices  in  the 
settlement  computations 

-  identifier  where  - 

IBCV=1  -  impeded  vertical  drainage  at  the 
bottom  of  the  consolidating  layer 

IBCV=2  -  free  vertical  drainage  at  the 

bottom  of  the  consolidating  layer 

IBCV=3  -  no  vertical  drainage  at  the 

bottom  of  the  consolidating  layer 


ICV 


number  of  data  pairs  ( PCV (  I  )  ,  CV IN( I ) )  and 
( PCR( I) ,CRIN( I) )  through  which  Lagrangean 
interpolation  polynomials  are  passed; 

0  <  ICV  «.  10 


IDEN(I)    -  identifier  corresponding  to  the  I-th  load 
step,  whe  re 
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IDEN(1)<0  -  the  excess  pore 

due  to  the  firs 

equal  to  the  In 

water  pressures 

IDEN(I)-0  -  the  excess  pore 

due  to  the  I-th 

by  means  of  sub 

IDEN(I)»1  -  the  excess  pore 

due  to  the  I-th 

equal  to  those 

reference  load. 

requires  that  S 

A  and  B  are  ide 

IDENUXO  allows  the  check 

lation  for  which  the  excess 

just  after  load  application 

measurements;   1=1,  NL 


water  pressures 
t  load  step  are  set 
put  residual  pore 

water  pressures 
load  are  computed 

routine  PORE 
water  pressures 
load  are  set 

computed  for  the 
Note  ,  that  this 

kempton'8  coefficients 

ntical  in  both  cases; 

of  an  existing  instal- 
pore  water  pressures 
are  known  from  field 


I  END 


number  of  horizontal  coordinates  XT;  IEND 
computed,  if  ISP=0;  IEND  <    20 


is 


IK 


-  identifier  where 

IK=0  -  constant  coefficients  of  permeability 
IK=1  -  the  radial  and  vertical  coefficients 

are  variable;  the  void  ratio  versus  the 
logarithm  of  the  coefficient  of  permea- 
bility is  a  straight  line 


I  RP 


I  SAT 


identifier  where 
IRP=0  -  no  residual  pore  water  pressures  are 

input 
I RP= 1  -  residual  pore  water  pressures  at  points 

(W'XT,  H'YE)  are  input  columnwise 
IRP=2  -  residual  pore  water  pressures  at 

arbitrary  points  are  input 

identifier  where 

ISP-0  -  settlements,  the  process  of  consoli- 
dation, and  the  stability  are  analyzed; 
in  program  SAND,  the  times  at  which  a 
new  load  step  can  be  applied  are  de- 
termined; 

ISP"1  -  settlements  and  the  process  of  consoli- 
dation are  analyzed,  and  the  times  of 
load  application  are  required  as  Input 
parameters  in  program  SAND;  ISP»1  also 
requires  the  output  of  the  time-dependent 
pore  water  pressures  at  MRE'MYE 
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points  of  the  solution  domain  of  the 
sand  drain  installations  with  axes  at 
the  user-defined  locations  XT 


ITBL 


IVAR 


J  ND 


number  of  times  TB(I),  defined  in  a  DATA- 
stateraent,  for  which  the  pore  water  pressures 
and  settlements  are  determined;  times  TB  always 
start  at  the  time  of  application  of  a  new  load 
step  in  SAND;  ITBL  <    45 

identifier  where 

IVAR=0  -  use  constant  coefficients  of  consoli- 
dation 

IVAR=1  -  use  variable  coefficients  of  consoli- 
dation which  are  obtained  either  by 
interpolation  between  CHIN(I)  and 
CVIN(I)  or  by  varying  the  coefficient 
of  compressibility  and/or  the  coef- 
ficients of  permeability 

number  of  points  for  which  output  is  required 

JND  «.  10 


JSP(  I) 


KHO 


LAYER 


LND 


MINP 


indices  of  the  JND  points  for  which  output  is 
required;  1=1,  JND  <  10;  the  output  is  for  points 
XE  (JSP(I)),  where  XE  and  MX  equally  spaced  co- 
ordinates between  and  including  the  limits  W*AX(1) 
and  W*AX(NI);  for  example,  specification  of 
JSP(1)=1  and  JSP(JND)=MX  causes  the  output  of 
information  at  the  limits  W*AX(1)  and  W'AX(Nl), 
respectively 

initial  coefficient  of  permeability  in  the 
horizontal  direction;  dimension  -  ft/day 

number  which  indicates  the  location  of  a  layer 
interface;  LAYER=KK  means  that  the  layer  inter- 
face is  located  at  a  depth  below  ground  surface 
which  is  equal  to  Y=H* (KK- 1 ) / (MYE- 1 ) ;  if  only 
one  layer  is  to  be  considered,  set  LAYER=0;  the 
program  requires  that  3  <    LAYER  <;  (MYE-3);  LAYER 
causes  a  layer  interface  to  be  considered  in  the 
consolidation  and  the  settlement  analyses  only 

number  of  weeks  to  be  plotted  on  the  time  axis 
of  the  output  figures 

number  of  points  defining  the  contour  of  the 
embankment  load;  MINP  <.    20 
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MHE 


MX 


MXT( I) 


MYE 

NC 

NI 
NL 
NRAD 

NS 

P(I) 

PC(I) 

PCH( I) 

PCV(  I) 


number  of  equally  spaced  points  In  the  horizontal 
direction;  MHE  «.  40 

number  of  equally  spaced  points  XE  in  the  hori- 
zontal direction  between  the  limits  AX(1)  and 
AX(NI);  MX  <.    5  1 

number  of  unequally  spaced  points  XT  between  the 
consecutive  limits  AX(I)  and  AX(I+1);  1-1, 
(NI-1)  <  4;  maximum  value  of  any  MXT(I)  must  be 
values  MXT(I)  must  not  exceed  IEND«=20 

number  of  equally  spaced  points  in  the  vertical 
direction,  including  the  surface  and  the  bottom 
of  the  compressible  layer;  MYE  <    12 

number  of  initial  undrained  shear  strengths,  C0(I), 
and  (c/p)-rat ios  ,  CP(I);  NC  <    MYE  <    11 

number  of  interval  limits  AX(I);  NI  <  5 

number  of  load  steps;  NL  <    6 

number  of  trial  arcs  to  be  used  with  each  trial 
center  (XC.YC)  in  the  stability  analysis;  NRAD  >  1 

number  of  load  strips  used  to  approximate  the 
actual  embankment  load;  NS  <  20 

present  overburden  effective  stresses  at  MYE 
equally  spaced  depths,  including  the  surface; 
1=1,  MYE  <  12;  dimension  -  psf 

p re  cons o  1  Ida t ion  stresses  at  MYE  equally  spaced 
depths,  including  the  surface;  1*1,  MYE  <    12; 
dimension  -  psf 

effective  stresses  at  which  the  horizontal  coefficients 
of  consolidation,  CHIN(I),  are  defined;  I- 1  , 
I CV  <    10;  dimension  -  psf 

effective  stresses  at  which  the  vertical  coef- 
ficients of  consolidation,  CVIN(I),  are  defined; 
1-1,  ICV  <  10;  dimension  -  psf 
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PU 


initial  pore  gas  pressure;  if  PU  is  not  defined 
during  input,  it  is  set  equal  to  the  sum  of  the 
atmospheric  pressure  plus  one-half  the  thickness 
of  the  compressible  layer  times  the  unit  weight 
of  water;  dimension  -  psf 


RAV 


coefficient  of  compressibility  of  the  lower  layer 
divided  by  that  of  the  upper  layer 


RC 


vertical  coefficient  of  consolidation  of  the 
lower  layer  divided  by  that  of  the  upper  layer 


RCC 


virgin  compression  index  of  the  lower  layer 
divided  by  that  of  the  upper  layer 


REO 


initial  void  ratio  of  the  lower  layer  divided 
by  that  of  the  upper  layer 


RK 


vertical  coefficient  of  permeability  of  the 
lower  layer  divided  by  that  of  the  upper  layer 
note,  if  RC  and  RAV  are  specified, 
RK=RC*RAV* (1+E0)/(1+E0*RE0) 


RKV 


vertical  coefficient  of  permeability  of  the 
consolidating  soil  divided  by  that  of  the  under- 
lying impedance  layer 


ROC 


recompression  index  divided  by  the  virgin  com- 
pression index;  in  case  of  two  layers,  ROC  applies 
to  the  upper  layer 


ROCL 


recompression  index  of  the  lower  layer  divided  by 
the  virgin  compression  index  of  the  upper  layer 


degree  of  saturation  to  be  input  as  a  decimal 
fraction 


SKH 


slope  of  the  void  ratio  versus  the  logarithm  of 
the  horizontal  coefficient  of  permeability  curve 


SKV 


slope  of  the  void  ratio  versus  the  logarithm  of 
the  vertical  coefficient  of  permeability  curve 


SPECS 


fraction  of  the  consolidation  settlement  due  to 
the  reference  load;  this  settlement  must  have 
occurred  before  a  new  load  is  applied  (program 
SAND) 


SPECU 


when  the  non-dissipated  average  pore  water  pres- 
sures become  less  than  5%  of  the  total  average 
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pore  water  pressures  existing  just  after  appli- 
cation of  the  last  load  at  1END*SPECU  points  XT, 
subsequent  loads  are  disregarded;  the  rationale 
for  this  procedure  is  that  no  significant  increase 
in  strength  and/or  settlement  can  be  expected  after 
an  average  degree  of  consolidation  of  95%  has  been 
reached  under  the  applied  load  at  a  number  of 
points;  in  selecting  the  magnitude  of  SPECU,  which 
is  input  as  a  decimal  fraction,  it  should  be 
noted  that  the  degrees  of  consolidation  in  the 
case  of  constant  coefficients  of  consolidation 
will  be  the  same  for  different  points  XT,  as  long 
as  the  drainage  boundary  conditions  are  the  same 


STAR 


symbol  to  be  used  in  the  resulting  plots  to  mark 
the  coordinate  axes;  proposed  to  be  the  asterisk  * 


SYMB(I)    -  symbols  to  be  used  in  the  resulting  plots  to 

present  points  of  the  computed  curves;  the  letters 
U,  C,  0,  and  T  are  proposed  for  the  average  decree 
of  consolidation,  the  consolidation  settlement, 
the  initial,  and  the  total  settlement  versus  time 
curves,  respectively.   It  should  be  noted  that  T 
plots  on  top  of  0,  which  plots  on  top  of  C,  which 
plots  on  top  of  U;  this  means,  that  only  T  will 
show,  when  the  four  values  are  identical;  1=1,2 
in  the  case  of  complete  saturation,  and  1=1,4  in 
the  case  of  partial  saturation 
User  can  use  any  other  letters  as  symbols 


TA 


available  construction  time;  in  SAND,  this  is  the 
time  at  which  the  final  load  must  have  been  applied; 
dimension  -  days 


TGPHI 


TL(I) 


T  M  I  N 


tangent  of  the  angle  of  internal  friction  of  the 
drainage  blanket,  if  there  is  one 

times  of  load  application  in  the  case  where  ISP=1; 
1=1,  NL  <    6;  dimension  -  days 

time  which  must  have  passed  after  a  load  appli- 
cation before  the  first  stability  analysis  is  made 
to  determine,  whether  the  next  load  can  be  applied; 
dimension  -  days 


U* 


-  residual  pore  water  pressure;  dimension  -  psf 
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w 


reference    value    In    the    horizontal     direction; 
dimension    -    feet 


X* 


horizontal  distance  from  the  center  line  at  which 
the  residual  pore  water  pressure  is  known; 
dimension  -  feet 


XC         -  X-coordinate  of  the  center  of  the  first  trial  arc; 
if  XC=0  is  input,  the  programs  select  a  starting 
value;  dimension  -  feet 

XINP(I)    -  X-coo r di na t es  of  the  points  defining  the  embank- 
ment contour;  1=1,  MINP  <  20;  dimension  -  feet 

XT(I)      -  X-coo rd inat es  of  the  points  at  which  the  settle- 
ments and  the  consolidation  behavior  are  deter- 
mined; if  ISP=0,  XT(I)  are  computed  for  1=1 
through  MXT(J);  if  ISP=1,  XT(I),  1=1,  IEND  <■    20 
are  input  as  fractions  of  W 

Y*         -  vertical  distance  below  the  ground  surface  at 

which  the  residual  pore  water  pressure  U  is  known; 
positive  downward;  dimension  -  feet 

YC         -  Y-coordinate  of  the  center  of  the  first  trial  arc; 
positive  upward;  dimension  -  feet 

YINP(I)    -  Y-coo r di na t es  of  the  points  defining  the  embank- 
ment contour;  positive  upward;  1=1,  MINP  <■  20; 
dimension  -  feet 


YWM 


thickness  of  a  drainage  blanket  placed  on  the 
surface  of  the  compressible  soil  layer;  dimension 
-  feet 


ZZ 


distance  between  the  maximum  YINP(I)  and  the 
minimum  value  YC  permissible  in  the  stability 
analyses;  dimension  -  feet 


*  The  residual  pore  water  pressures  are  first  arranged  such 
that  points  having  the  same  X-coordinate  are  grouped  in  the 
order  of  ascending  Y-c oo rd i na t es  .   Data  sets  are  then  in- 
put in  the  order  of  ascending  X,  whereby  the  last  card  is 
identified  by  COUNT  *  0. 
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Method 


The  programs  facilitate  the  analysis  of  an  embankment  foun- 
dation on  a  soft,  compressible  soil  layer,  which  is  underlain  by 
a  firm  stratum.   The  approach  involves  the  consideration  of  the 
following  problems:   (a)  stress  and  pore  pressure  distribution 
within  the  soft  layer  due  to  a  symmetrical  vertically  acting 
embankment  load  at  the  surface,  (b)  the  dissipation  of  excess 
pore  water  pressures  subject  to  different  flow  conditions  includ- 
ing horizontal  flow,  (c)  the  computation  of  settlements,  and  (d) 
the  stability  of  the  embankment- su bs oi 1  system  with  consideration 
of  the  gain  in  shear  strength  as  consolidation  proceeds. 

The  programs  are  designed  to  solve  several  cases  during  the 
same  program  execution,  wherefore  some  computations  are  performed 
before  data  for  a  specific  case  are  input.   To  save  computer  time 
and  storage,  computations  are  only  done  for  a  limited  number  of 
locations  in  the  horizontal  direction,  and  information  at  inter- 
mediate points  is  obtained  by  interpolation. 


PROGRAM  SAND  --  After  computation  of  the  pore  water  pres- 
sures and  settlements  due  to  a  reference  load,  which  in  most 
cases  will  be  identical  with  the  final  load,  essentially  two 
options  are  available  by  means  of  index  ISP.   If  ISP=0,  the 
embankment  contours  of  the  different  load  steps  are  input  and  the 
program  determines  the  times  at  which  new  load  steps  can  be 
applied.   The  criteria  incorporated  into  the  programs  are:   (1)  a 
defined  portion  of  the  reference  settlement  at  the  point  closest 
to  the  center  line  of  the  embankment  must  have  occurred,  and/or 
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(2)  a  specified  factor  of  safety  must  be  assured  at  the  time  of  a 
new  load  application.   To  avoid  unnecessarily  numerous  stability 
analyses  stability  analyses,  a  time  TMIN  measured  from  the  last 
load  application  can  be  defined,  and  stability  analyses  are  not 
performed  for  times  less  than  TMIN,  although  settlements  and 
degrees  of  consolidation  are  computed.   For  the  same  reason,  the 
program  contains  the  restriction  that  all  subsequent  load  steps 
are  disregarded  if  95%  consolidation  has  occurred  at  a  specified 
number  of  points  under  the  acting  load.   The  rationale  is  that 
only  a  minor  increase  in  strength  and  settlements  can  be  expected 
due  to  dissipation  of  the  remaining  excess  pore  water  pressures, 
and  the  times  required  will  likely  be  prohibitive. 

If  ISP=1,  the  different  load  contours,  as  well  as  the  times 
of  load  application,  must  be  input,  and  the  program  analyzes  the 
consolidation  process  and  the  settlements  without  performing  any 
stability  analyses.   Use  of  ISP=1  also  produces  the  output  of  the 
pore  water  pressures  at  MYE*IEND  points  of  a  vertical  cut  through 
the  locat  ions  XT*  W. 

The  computed  information  is  first  stored  internally  on  two 
internal  files  for  each  step  of  load.   A  total  of  6  steps  of 
loads  are  allowed. 


The  program  can  handle  analysis  of  multiple  embankments  in  a 
single  run.   This  is  done  by  putting  H  =  99  at  the  end  of  the 
data  cards  for  the  previous  embankment.   On  the  other  hand  by 
specifying  H  »  0  the  program  is  terminated. 
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The  output,  in  addition  to  that  given  for  ISP°0,  includes 
the  excess  pore  water  pressures  at  MYE*JND  points  of  a  vertical 
section  through  the  subsoil. 

Remarks 

The  average  degree  of  consolidation  is  defined  in  the  pro- 
grams as  the  integral  over  the  dissipated  pore  water  pressures 
divided  by  the  integral  over  the  excess  pore  water  pressure 
build-up  under  the  reference  load. 

The  increase  in  the  effective  stresses  at  the  time  of  load 
application  in  the  case  of  a  partially  saturated  soil  is  assumed 
to  be  equal  to  the  difference  between  the  pore  water  pressures 
obtained  for  B=1.0  and  B<1.0,  where  B  is  Skempton's  pore  pressure 
coefficient  . 

To  account  for  the  fact  that  the  swelling  index  is  normally 
considerably  smaller  than  the  compression  index,  negative  pore 
water  pressures,  which  might  result  after  surcharge  removal,  are 
neglected  in  program  SAND. 

Subroutines  Required 


COEF  (UAVD.U AVE, OMEGA, PHI, LI, IL,OMED,PHID,NN) 

DISP  (U,LI,OMEGA,PHI,T,UAVE,LIFT,MYE,IEND,XT,SV) 

GAIN  (UA,R,SU,MYE,MXT,MXE,MX,NIM,CO,CP,III) 

GENS  (S ,M) 

INIT  (XINP,YINP,MINP,XC,YC,YY,ZZ,DMIN) 

LAGR  (X,Y  ,M,JST  ,XX,YY  ,N) 
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MATR  (IS  ,IE,M,XV,A,XM) 

MINV  (A,N,D) 

MPRD  (A,B ,R,N,M,L ,1  AS ,1 BS ,IRS) 

PORE  (XINP,YINP,M,NST,CX,IX,CY,IY,U,ABAR,BBAR) 

SETL  (U,SETTL,IEND,KKK,MYE,F,FUP,FLO,KIAV) 

STAB  (XC,YC,R,XINP,YINP,MINP,MX,MYE,SU,FX,D,DM,YY) 

2 .2   Subroutine  APROX 


Purpose 

To  approximate  the  embankment  contour  by  a  number  of  strips 
of  constant  thickness 


Usage 


CALL  APPROX  (X,Y,MN,N,D) 


Block  Names 

POAPI/ALPHA(30) ,L 

Description  of  Parameters 

X,Y    -  coordinates  of  the  points  defining  the  embank- 
ment contour;  must  be  provided  such  that 
X(  1)=0<X(2)< <X(MN) 

MN     -  number  of  points  X,Y;  MN  <  20 

N      -  number  of  approximating  strips 

D      -  thickness  of  the  approximating  strip 

ALPHA  -  returned  lengths  of  the  strips 

L      -  number  of  values  ALPHA,  L  <  30 

Statement  Functions  Required 


C0NK(K0,SKM);VARK(K0,SKM);PSI(AA,K) 
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2.3   Subroutine  DETFS 


Purpose 


To  determine  the  factor  of  safety  of  an  embankment  resting 
on  a  soft  subsoil. 


Usage 


CALL  DETFS(XC,YC,R,XINP,YINP,MINP,MX,MYE,SU,FS) 


Block  Names 


INDET/RHO( 19),TAU( 19) ,PSI( 19) 

SAPOD/IOUTP*;W*;H*;GLOAD,CLOAD,NARC,NRAD* 
SADET/XSTAB(51),YSTAB(11),DX,DY,YWM,TGPHI 

*  Parameters  marked  by  an  asterisk  are  not  needed  in  this 
subroutine 


Description  of  Parameters 


XC       -  X-coordinate  of  the  center  of  the  circular  slip 
surface 

YC       -  corresponding  Y-coordinate 

R        -  radius  of  the  circular  slip  surface 

XINP     -  X-coo rd i na t es  of  the  points  defining  the  embank- 
ment contour 

YINP     -  corresponding  Y-c oor d ina t es 

MINP     -  number  of  points  (XINP, YINP) 

MX       -  number  of  equally  spaced  grid  points  in  the  X- 
direction 


-  20  - 


MYE      -  number  of  equally  spaced  grid  points  in  the  Y- 
direction 

SU       -  undrained  shear  strengths  at  (MX*MYE)  grid  points 

FS       -  factor  of  safety  to  be  provided 

RHO      -  slopes  of  the  lines  connecting  consecutive  points 
XINP/YINP 

2 
TAU      -  parameters  defined  in  subroutine  INIT;  TAU=1+RH0 

PSI      -  Y-value  at  X=0  for  the  lines  connecting  consecu- 
tive points  XINP/YINP 

GLOAD  -  unit  weight  of  the  embankment  soil 

CLOAD  -  undrained  strength  of  the  embankment  soil 

NARC  -  one-half  the  number  of  subarcs  within  the  subsoil 

XSTAB  -  X-coordinat es  of  the  grid  points 

YSTAB  -  Y-coordinat es  of  the  grid  points 

DX  -  interval  in  the  X-direction 

DY  -  interval  in  the  Y-direction 

YWM  -  thickness  of  the  drainage  blanket 

TGPHI    -  tangent  of  the  angle  of  internal  friction  of  the 
soil  in  the  drainage  blanket 


Method 


A  total  stress  analysis  is  performed  to  evaluate  the  factor 
of  safety  of  an  embankment  which  consists  of  cohesive  soil  and  a 
cohesionless  drainage  blanket.   The  undrained  strengths  of  the 
subsoil  are  input  at  MX*MYE  grid  points,  and  the  strength  avail- 
able along  the  portion  of  the  circular  slip  surface  that  passes 
through  the  subsoil  is  obtained  at  the  centers  of  2*NARC  subarcs 
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by  interpolation  between  the  strengths  SU  at  adjacent  grid 
points.   Resisting  the  driving  moments  are  first  computed  with 
the  assumption  that  the  embankment  consists  entirely  of  friction- 
less  soil.   The  so-obtained  ratio  of  moments  is  then  used  as  the 
initial  estimate  in  the  iteration  for  the  correct  factor  of 
safety,  in  which  the  drainage  blanket  is  considered. 

Statement  Functions  Required 

FUNA  (A,B),  FUNB  (B),  FUNC  (A,B,C) 

Remarks 

The  coordinates  YINP,YC,YWM  and  PSI  are  positive  upward, 
wherein  YSTAB  is  positive  downward  with  the  coordinate  origin  at 
the  surface  of  the  soft  layer. 

2 .4   Subroutine  DISP 

Purpose 

To  determine  the  excess  pore  water  pressures  at  arbitrary 
times  for  step  loading  conditions. 

Usage 

CALL  DISP(U,LI,OMEGA,PHI,T,UAVE,LIFT,MYE,IEND,XT,SV) 

Block  Names 


SAPOD/IOUTP,W*,H* ,GLOAD* , CLOAD* ,NARC*,NRAD* ; 
SADI1/LAYER.IBCV ,MHE,M,N,IDC,NDR,ISUM,XET(41); 
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SADI2/FIMPV,RC,RK,C,R0,RE,TA,ISP,IVAR; 

*  parameters  marked  by  an  asterisk  are  not  needed  in  this 
subroutine 


Description  of  Parameters 


pore  water  pressures  to  be  determined;  for  LI=1,5,6 
this  vector  contains  the  additional  pore  water 
pressures  for  the  new  load,  when  subroutine  DISP 
is  called 


L  1=  1 

LI=2 

Ll=3 


-  determines  vectors  A  and  B  for  the  load  addition 

-  determines  the  pore  water  pressures  due  to  step- 
wise constant  loads 

-  determines  vectors  A  and  B  for  times  between  load 
applications  in  the  case  where  the  "consolidation 
factor"  is  variable 


LI=5      -  first  lift;  first  execution  of  subroutine  DISP 

OMEGA     -  "consolidation  factors"  for  radial  flow;  product 
of  the  gas  factor  and  the  radial  coefficient  of 
consolidation 


PHI 


"consolidation  factors"  for  vertical  flow;  product 
of  the  gas  factor  and  the  vertical  coefficient  of 
consolidat  ion 


T  -  time 

U  A  V  E      -  average  pore  water  pressures 

LIFT      -  number  of  lifts  applied  at  and  before  time  T 

MYE       -  number  of  points  equally  spaced  in  the   vertical 
direction  at  which  the  pore  water  pressures  are 
computed 

MHE       -  number  of  points  equally  spaced  in  the  horizontal 
direction  at  which  the  pore  water  pressures  are 
computed  «.  40 

IEND      -  number  of  elements  In  vectors  OMEG A , P HI , UAVE  and 
XT 
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XT        -  points  in  the  horizontal  direction  for  which  OMEGA 
and  PHI  are  input  and  UAVE  is  computed 

SV        -  mathematical  molecule  of  the  extended  Simpson's 
or  trapezoidal  rules  in  the  vertical  direction 

IOUTP     -  logical  output  unit 

LAYER     -  index  indicating  the  depth  of  a  layer  interface; 
LAYER  >  3 

IBCV=1    -  vertical  drainage;  impeded  drainage  at  the  lower 
boundary  surface 

IBCV=2    -  vertical  drainage;  free  drainage  at  the  lower 
boundary  surface 

IBCV=3    -  vertical  drainage;  no  drainage  at  the  lower  boun- 
dary surface 

M  -  number  of  eigenvalues  for  the  vertical  problem 

N  -  number  of  eigenvalues  for  the  horizontal  problem 

IDC=1  -  vertical  flow  only  at  all  points  XT 

IDC=2  -  vertical  plus  horizontal  flow  at  all  points  XT 

I  SUM  -  number  of  elements  of  vector  U 

FIMPV     -  "impedance  factor"  for  vertical  flow;  FIMPV= 

(RKV*HI/DY)  /  (1 .+RKV*HI/DY) ,  as  defined  in  SAND 

RC        -  ratio  of  the  vertical  coefficients  of  consolidation 
of  the  lower  and  upper  layer 

RK        -  ratio  of  the  vertical  coefficients  of  permeability 
of  the  lower  and  upper  layer 

ISP=1     -  compute  and  print  the  pore  water  pressures  at  all 
MYE*MRE  points  of  the  solution  domain  for  1END 
locations  XT;  return  the  averages  taken  at  MYE 
depths  over  the  circular  area  of  influence  as 
vector  U;  return  the  overall  average  at  IEND 
locations  XT  as  vector  UAVE 


ISP=0     -  suppress  the  printing 
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IVAR=0    -  constant  "consolidation  factors" 
IVAR=1    -  variable  "consolidation  factors" 

Me  t hod 


The  consolidation  problem  is  treated  as  an  eigenvalue  prob- 


lem. 


Subroutines  Required 


EFGEN(PSI,T,EIG,IVAR,MM,NN,D,LI) 
MAMUL( A,D , B  ,C ,N , IS  ,11  ) 

MODAL(LAYER,IBC,N,FIMP,RC,RK,XO,XE,EIG,X,XI,F) 
MPRD(A,B,R,N,M,L,IAS,IBS,IRS) 

Remarks 


Storage  reservations  are  made  to  account  for  IEND  <    40  and  a 
maximum  of  6  step  loads. 

2 .5   Subroutine  LINT 

Purpose 

To  interpolate  between  arbitrarily  spaced  data  points  by  use 
of  interpolation  or  extrapolation. 

Usage 


Call  LINT( X ,Y  ,N1  ,M  ,XX ,YY  ,N) 
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Description  of  Parameters 


X     -  vector  of  arguments  for  which  the  values  of  the 
function  are  interpolated 

Y     -  resulting  vector  of  interpolated  values  of  the 
f  un  c t  ion 

Nl    -  number  of  arguments  in  X 

M     -  index  of  the  last  value  of  Y 

XX    -  vector  of  arguments  for  which  the  values  of 
the  function  are  known 

YY    -  vector  of  known  values  of  the  function 

N     -  number  of  arguments  in  XX 

2 .6   Subroutine  HDIST 

Purpose 

To  calculate  the  horizontal  distance  from  the  CL  to  the 
point  where  the  pore  pressure  is  0.1%  of  the  maximum  pore  pres- 
sure under  the  embankment. 

Usage 


Call  HD1ST(UB,XT,IEND,ICV,CHIN,DXSQ,AAH,MHE,W, 
XET ,IPOR,HF,MYE ,P0R) 

Description  of  Parame t e  r s 


UB      -  pore  pressure  at  (MYE'lEND)  points  under  the 
embankment 

XT      -  X-coordinate  of  the  points  at  which  the  settlements 
and  consolidation  behavior  are  determined 


I  END    -  number  of  horizontal  coordinates  XT 
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ICV     -  number  of  data  pairs  ( P CV( I ) , CV I N( I ) )  and  ( PCH (  I  )  ,  CHI N( I ) ) 

through  which  Lagrangian  interpolation  polynomials  are  passe 

CHIN    -  variable  coefficient  of  consolidation  in  horizontal 
direction 

DXSQ  -  (DELTA  H**  2 . ) 

AAH  -  ( 1 .+E0) / (GAMMA  WATER  x  (DELTA  H)  **  2.) 

MHE  -  number  of  horizontal  grid  points 

W  -  Reference  width 

XET     -  X-coord ina t es  of  the  equidistant  points  in  the  horizontal 
direction 

IPOR    -  indicator  to  specify  the  value  of  POR 
=1  ,  POR  is  specified  by  the  user 
=0  ,  program  evaluates  POR 

HF      -  =1  ,  If  horizontal  flow  is  considered 
=0  ,  If  no  horizontal  flow  is  allowed 

MYE     -  number  of  points  in  the  vertical  direction 

POR     -  horizontal  drainage  d i s t ance /  [ XT( I  END ) * W ] 

2  .7   Subroutine  COEF 

Purpose 

To  determine  the  gas  factor  and  the  coefficients  of  consoli- 
dation . 


Usage 


COE F-UAUD.U AVE, OMEGA, PHI, LI, IL,OMED,PHID,NN] 


Block  Names 


SACSE/ROC,ROCL,SVM,P,PC,PLOQ,PO,PCO,LAV,IK,ISAT,AAV ,AAH 
SAC01/AV0,KV0,KH0,E0PUS,PU, SKHM , SKVm , CCC ,NNN,ICOEFF 
SAC0  2/PCV(10),CXIN(10),PCR(10),CHIN(10),ICV,KOUNT,HF 
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Description  of  Parameters 


UAVD       -  average  pore  pressure  before  consolidation 

UAVE       -  average  pore  pressure  at  some  time  after  consolidation 

OMEGA      -  consolidation  factors  of  horizontal  flow,  product 
of  the  gas  factor  and  the  horizontal  coefficient 
of  consolidation 

PHI        -  consolidation  factor  for  vertical  flow,  product  of  the 
gas  factor  and  the  vertical  coefficient  of 
consolidation 

IL         -indicator 

=1  -  calculate  the  parameters  for  vertical  flow 
*1  -  calculate  the  parameters  for  horizontal  flow 

LI  -  identifier;  if  LI=3,  OMED  and  PHID  are  computed 

NN         -  number  of  points  where  OMEG A ,  P HI  ,  OMED  and  PHID  are  required 

OMED       -  difference  between  the  radial  consolidation  factor 

computed  in  a  previous  execution  of  this  subroutine 

and  the  value  computed  in  this  execution  of  the 
subroutine 

PHID       -  difference  between  the  vertical  consolidation  factor 

computed  in  a  previous  execution  of  this  subroutine 

and  the  value  computed  in  this  execution  of  the  sub- 
routine 

IEND       -  number  of  elements  In  arrays  U AV D , U AV E , OMEG A , PHI  , 
OMED, PHID 

ROC        -  ratio  between  the  recompression  and  the  virgin 
compression  indices 

PO         -  average  initial  vertical  effective  stress 

PCO        -  average  p re  con s o 1 i dat ion  stress 

IAV-0      -  constant  coefficient  of  compressibility 
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IAV=1  -  variable  coefficient  of  compressibility 

IK  =  0  -  constant  coefficient  of  permeability 

I K= 1  -  variable  coefficient  of  permeability 

ISAT=0  -  100%  saturation 

ISAT=1  -  partial  saturation 

AAV  -  factor  defined  in  program  SAND;  AAV= ( 1 +  E0 ) / ( 6 2 . U 3* DY 2 ) 

AAH  -  factor  defined  in  program  SAND;  AAH= ( 1 +E0 ) / ( 6 2 . 4 3*DH2 ) 

AVO  -  initial  or  constant  coefficient  of  compressibility 

KVO        -  initial  coefficient  of  permeability  in  the  vertical 
direction 

KRO        -  initial  coefficient  of  permeability  in  the  radial 
direction 

EOPUS      -  factor  defined  in  program  SAND; 
E0PUS=E0*PU*(1-S)*(1-HC) 

PU         -  initial  pore  gas  pressure 

SKVM       -  factor  defined  in  program  SAND;  SKVM=CC/SKV,  if 
IAV=1  and  SKVM= 2 . 3 0 26* AVO/ SKV ,  if  IAV=0 

SKHM       -  factor  defined  in  program  SAND;  SKHM=CC/SKH,  if 
IAV=1  and  SKRM= 2 . 3 0 26*AVO/ SKH ,  if  IAV=0 

CCC         -  compression  index  times  0.4343 

NNN        -  number  of  locations  with  radial  and  vertical 
drainage  conditions 

IC0EF=1    -  IK=0,  IAV=0  or  IAV=1 

IC0EF=2    -  IK-1,  IAV=0 

IC0EF-3    -  IK-1,  IAV=1 

IC0EF=»4    -  the  coefficient  of  consolidation  is  obtained  by 
interpolation 
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PCV         -  effective  stresses  for  which  the  vertical  coef- 
ficients of  consolidation  are  input 

CVIN       -  vertical  coefficients  of  consolidation  at  PCV 

PCH        -  effective  stresses  for  which  the  radial  coeffi- 
cients of  consolidation  are  input 

CHIN  -  radial  coefficients  of  consolidation  at  PCH 

I CV  -  number  of  PCV , CV  IN  ,P CR  ,  and  CRIN;  ICV  <  10 

K0UNT=0  -  second  or  subsequent  executions  of  this  subroutine 

K0UNT=1  -  first  use  of  this  subroutine 

Method  and  Reference 

Depending  on  the  values  of  the  indices  ISAT,IK,IAV,  and 
ICOEF,  the  values  of  the  "consolidation  factors"  for  radial  and 
vertical  flow  are  determined  for  the  average  increases  in  effec- 
tive stresses  (UAVD-UAVE)  at  IEND  locations.   Relationships  con- 
sidered include:   (bi-)  linear  void  ratio  versus  logarithm  of 
effective  stress  or  constant  coefficient  of  compressibility; 
linear  void  ratio  versus  logarithm  of  coefficient  of  permeabil- 
ity; and  arbitrary  coefficient  of  consolidation  versus  effective 
stress  relationships. 

2  .8   Subrout  ine  EFGEN 

Purpose 

To  generate  the  time-dependent  matrix  D. 


Usage 


CALL  EFGEN(PSI,T,EIG,IVAR,MM,NN,D,LI) 
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Description  of  Parameters 


PSI 

T 

EIG 

IVAR=0 

IVAR=1 

MM 

NN 
D 


-  vector  containing  MM  "consolidation  factors" 

-  time  at  which  diagonal  matrix  D  is  computed 

-  vector  containing  the  eigenvalues 

-  constant  "consolidation  factor";  PSI  consists  of 
one  element  only 

-  variable  "consolidation  factor";  PSI  consists  of 
MM  elements 

-  number  of  elements  PSI  (in  most  other  routines, 
this  parameter  is  called  IEND) 

-  number  of  eigenvalues 

-  diagonal  matrix  to  be  determined 


Me  thod 

The  elements  of  the  diagonal  matrix  D  are  given  by  exp 
( PSI( J)*EIG( I )*T) ,  wherefore  D  has  a  total  of  MM*NN  elements 
However,  if  IVAR=0,  D( K ) =D  (  K  +  N N)  =  .  . .  =  D ( K+ ( MM- 1 ) *NN )  . 

2  .9   Subroutine  GAIN 

Purpose 

To  determine  the  gain  in  shear  strength. 

Usage 


CALL  GAIN(UA,R,SU,MYE,MXT,MXE,MX,NIM,CO,CP,III) 
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Description  of  Parameters 


UA 


su 

MYE 

MXT( I) 
MXE( I) 

MX 

NIM 
CO 

CP 

111=1 

111  =  0 


-  vector  of  dissipated  pore  water  pressures  at 
points  (XT.XE) 

-  auxiliary  matrix  necessary  to  compute  the  dis- 
sipated pore  water  pressures  at  points  (XE,YE) 
from  a  knowledge  of  those  at  points  (XT, YE) 

-  resultant  undrained  strengths  at  points  (XE.YE) 

-  number  of  equally  spaced  points  in  vertical 
direction 

-  number  of  points  XT  between  the  interval  limits 
AX(I)  and  AX(I+1) 

-  number  of  points  XE  between  the  interval  limits 
AX(I)  and  AX(I+1) 

-  sum  of  MXE(I)  for  1=1, NIM 

-  number  of  subintervals 

-  vector  containing  MYE  undrained  initial  shear 
strength  values 

-  vector  containing  MYE  (  c /p")  ~ra  t  ios 

-  all  elements  of  array  UA  are  assumed  to  be  equal 
to  zero 

-  some  or  all  elements  of  array  UA  differ  fron  zero 


Me  thod 

The  strength  values  SU  are  obtained  as  the  sum  of  the  ini- 
tial shear  strengths  plus  the  products  of  the  (c/"p)-ratios  and 
the  dissipated  pore  water  pressures. 


2.10   Subroutine  FUNCT 
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Purpose 


This  subroutine  computes  the  values  of  the  integrands  for 
the  argument  theta. 


Usagi 


CALL  FUN CT( THETA, ETA, K,SIGX,SIGY,TAU) 


Block.  Names 


POFUN/Q(258),ETHST(258) 


Description  of  Parameters 


K       -  index  necessary  to  select  the  proper  quantities 
Q  and  ETH,  which  have  been  precomputed  for  the 
same  argument  THETA 

SIGX    -  value  of  the  integrand  of  the  equation  for  the 
horizontal  normal  stress 

SIGY    -  value  of  the  integrand  of  the  equation  for  the 
vertical  normal  stress 

TAU     -  value  of  the  integrand  of  the  equation  for  the 
shear  stress 

Q       -  precomputed  vector  whose  elements  are  equal  to 
the  sum  of  (sin  a   b)/t» 

ETH     -  precomputed  vector  whose  elements  are  equal  to 
exp  (0) 


Method 


The  subroutine  makes  use  of  the  fact  that  the  hyperbolic 
sine  and  cosine  functions  can  be  expressed  in  terms  of  the 
exponential  function. 
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2.11   Subroutine  GENER 

Purpose 

To  determine  the  coefficients  and  the  roots  of  the  charac- 
teristic equation. 

Usage 


CALL  GENER( P ,F  ,X ,N) 


Description  of  Parame t  e  r  s 


P    -  tridiagonal  matrix  whose  lower  off-diagonal 
elements  are  equal  to  -1.0 

F    -  auxiliary  matrix  used  during  the  computations 

X    -  roots  of  the  characteristic  equation;  these  are 
the  eigenvalues 

N    -  degree  of  the  characteristic  equation 


Subroutines  Required 

RR00T  (A,X,N) 

2.12   Subroutine  GENS 

Purpose 

To  generate  the  mathematical  molecules  which  are  used  in  a 
numerical  integration. 

Usage 


CALL  GENS(S.M) 
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Description  of  Parameters 


S    -  resulting  mathematical  molecule 
M    -  number  of  pivotal  points 

Method 

For  the  case  of  vertical  flow,  the  elements  of  vector  S  are 
either  computed  by  the  extended  Simpson  rule  or  the  extended  tra- 
pezoidal rule  assuming  equal  spacing;  the  use  of  Simpson's  rule 
requires  that  M  be  an  odd  number. 

2.13   Subroutine  INIT 

Purpose 

To  select  starting  values  for  the  stability  analysis  and 
define  three  vectors  which  are  repeatedly  used  in  subroutine 
DETFS . 


Usage 


CALL  INIT(XINP,YINP,MINP,XC,YC,YY,ZZ,DMIN) 


Block  Names 


SAPOD/IOUTP*,W*,H,GLOAD*,CLOAD*,NARC* ,  NRAD*  ; 

INDET/RHO(19),TAU(19),PSI(19); 

*  parameters  marked  by  *  are  not  needed  in  this  routine 
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Description  of  Parameters 


XINP    -  X-coo r d 1 na t es  of  the  points  defining  the  embank- 
ment contour 

YINP    -  Y-coor d  1  na t es  of  the  points  defining  the  embank- 
ment contour 

MINP    -  number  of  points  (XINP, YINP) 

XC      -  X-coordinate  of  the  center  of  the  first  trial 
slip  surface 

YC      -  corresponding  Y-coordinate 

YY      -  minimum  permissible  value  for  YC 

ZZ      -  difference  between  the  maximum  YINP-value  and  YY 

DMIN    -  minimum  increment  to  be  used  in  the  direct  search 
p  r ocedu  re 

H       -  thickness  of  the  compressible  layer 

RHO     -  slopes  of  the  lines  which  connect  consecutive 
points  (XINP, YINP) 

TAU     -  TAU=1+RH0**2 

PSI     -  Y-value  at  X=0  for  the  lines  connecting  consecutive 
points  (XINP, YINP) 


Method 


When  the  center  of  the  first  trial  failure  arc  is  not  input 
from  SAND,  YC  is  set  equal  to  YY  and  XC  is  defined  as  one-half  of 
the  sum  of  the  X-values  obtained  when  two  circles  with  radius 
R=YY+H  pass  through  (X INP( 1 ) , Y I NP ( I ) )  and  the  toe  of  the  embank- 
ment, respectively.   The  vectors  RHO,  TAU,  and  PSI  are  computed 
once  for  repeated  use  in  subroutine  DETFS 
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2.14   Subroutine  INTEG 


Purpose 


To  compute  approximate  values  of  the  stress  integrals 
between  the  limits  B  and  infinity. 


Usage 


CALL  INTEG( ETA, XI  ,B  ,AR) 


Block  Names 


PCAPI/ALPHA( 30) ,  L; 


Description  of  Parameters 


ETA      -  Y-coo rdi na t e  divided  by  the  thickness  of  the 
compressible  layer 

XI       -  X-coordinate  divided  by  the  thickness  of  the 
compressible  layer 

B         -  lower  integration  limit 

AR       -  resulting  array  with  six  integral  values 

ALPHA    -  length  of  the  load  strips  divided  by  the  thick- 
ness of  the  compressible  layer 

L         -  number  of  ALPHA'S 
2.15   Subroutine  LAGR 
Purpose 


To  interpolate  between  arbitrarily  spaced  data  points  by  use 
of  the  Lagrangean  polynomial. 
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Usag( 


CALL  LAGR(X  ,Y  ,M,JST  ,XX,YY  ,N) 


Description  of  Parameters 

X      -  vector  of  arguments  for  which  the  values  of  the 
function  are  interpolated 

Y      -  resulting  vector  of  interpolated  values  of  the 
f  u  net  i  on 

X      -  number  of  arguments  X 

JST    -  index  of  the  first  value  Y  to  be  interpolated 

XX     -  vector  of  arguments  for  which  the  values  of  the 
function  are  known 

YY     -  vector  of  known  values  of  the  function 

N      -  number  of  arguments  XX 

Method 

A  Lagrangean  polynomial  of  degree  (N-l)  is  passed  through 
the  data  points  (XX, YY)  and  then  evaluated  for  M  arguments  X. 
See,  for  example,  the  book  by  CARNAHAN ,  LUTHER,  AND  WILKES 
(  1969)  . 

2.16   Subroutine  MAMUL 

Purpose 


To  perform  the  matrix  multiplication:   (general  matrix)* 
(diagonal  ma t ri x ) * ( c o lumn  vector). 
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Usage 


CALL  MAMUL( A ,D ,B ,C ,N ,IS  ,11 ) 


Description  of  Parameters 


A  -  general  square  matrix 

D  -  diagonal  matrix 

B  -  column  vector 

C  -  resulting  column  vector 

N     -  order  of  matrices  A  and  D  and  length  of  vectors 
B  and  C 

IS    -  index  of  the  first  element  of  vector  B 

II    -  index  of  the  first  element  of  matrix  D,  whose 

diagonal  elements  only  are  stored  one-d imens iona lly 


Me  t  hod 

The  subroutine  utilizes  the  fact  that  all  matrices  are 
stored  one-d imens iona 1 ly  ,  so  that  the  I-th  element  of  vector  C 
becomes 


N 
C(I)=  I  A(I+K*N-N)*B(IS-1+K)*D( II-l+K) 


2.17   Subroutine  MATR 
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Purpose 


To  generate  matrix  XM  ,  the  elements  of  whose  rows  are  equal 
to  Integer  powers  of  the  differences  between  the  elements  of  vec- 
tor XV  and  constant  A. 

Usage 

CALL  MATR(  IS  ,IE  ,M,XV  ,  A  ,XM) 

Description  of  Parameters 

IS  -  index  of  the  first  element  of  vector  XV 

IE  -  index  of  the  last  element  of  vector  XV 

M  -  number  of  rows  of  matrix  XM 

XV  -  vector  with  (IE-IS+1)  elements 

A  -  constant  to  be  subtracted  from  all  elements  XV 

XM  -  resulting  M  by  (IE-IS+1)  matrix 

Method  and  Reference 

Given  the  vector  XV  with  elements 
XV(  IS)  ,XV( IS+1 ) ,  .  .  .  ,XV( IE)  ,  the  M  by  (IE-IS+1)  matrix  is  gen- 
erated and  stored  one-d i mens i ona 1 ly ,  such  that  XM  (K+I*M- 
M)  =  (XV( IS+I-1)-A)**(K-1)  . 

Program  Length 

4  5  words 


2.18   Subroutine  MINV 
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Purpose 


To  invert  a  general  matrix. 


Usage 


CALL  MINV(A,N,D) 


Block  Names  and  Lengths 


None 


Description  of  Parameters 


N 
D 


-  input  matrix  destroyed  in  computation  and  replaced 
by  the  resultant  inverse 

-  order  of  matrix  A;  N  <  25 

-  resulting  determinant 


Method  and  Reference 

The  standard  Gaub-Jordan  method  is  used.   This  subroutine  is 
a  slightly  modified  version  of  subroutine  MINV,  as  given  in  the 
IBM  Application  Program,  1130  Scientific  Subroutine  Package 
( 1 1 30-CM-02X) ,  Programmer's  Manual,  Form  H20-0252-0,  White 
Plains  ,  New  York,  1 966 . 


2.19   Subroutine  MODAL 
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Purpose 


To  determine  matrix  P,  its  eigenvalues,  the  corresponding 
modal  matrix,  and  the  inverse  of  the  modal  matrix. 


Usage 


CALL  MODAL(LAYER,IBC,N,FIMP,RC,RD,XO,XE,EIG,X,XI,F) 


Description  of  Parame t e  r s 


LAYER=1      -  radial  drainage  conditions 

LAYER=2      -  vertical  drainage  conditions;  homogeneous  soil 
p  rof  i le 

LAYER  >    3    -  vertical  drainage  conditions;  two-layered  soil 
profile  with  layer  interface  at  YE(LAYER) 

IBC=1  -  vertical  flow;  impeded  drainage  at  the  bottom 

IBC=2  -  vertical  flow;  free  drainage  at  the  bottom 

IBC=3  -  vertical  flow;  no  drainage  at  the  bottom 

N  -  number  of  eigenvalues 

FIMP  -  "impedance  factor";  for  vertical  flow 

(RKV*HI/DY)/(1 .+RKV*HI/DY) 

RC  -  ratio  of  the  vertical  coefficients  of  consolidation 

of  the  lower  and  the  upper  layers 

RK  -  ratio  of  the  vertical  coefficients  of  permeability 

of  the  lower  and  the  upper  layers 

XO  -  lower  boundary  of  the  solution  domain 

XC  -  upper  boundary  of  the  solution  domain 

EIG  -  resultant  eigenvalues 

X  -  resultant  modal  matrix 
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XI 

F 


-  inverse  of  the  resultant  model  matrix 

-  auxiliary  matrix 


Method  and  Reference 

For  IBC=2  and  1BC=3,  the  eigenvalues  and  the  modal  matrix 
can  be  computed  directly  for  a  homogeneous  soil  profile.   In  all 
other  cases,  the  auxiliary  matrix  D  and  matrix  P,  whose  eigen- 
values are  determined  in  subroutine  GENER,  must  be  generated 
before  the  modal  matrix  X  can  be  set  up.   Finally,  the  inverse  of 
the  modal  matrix  is  computed  by  use  of  subroutine  MINV. 

Subroutines  Required 


GENER( P ,F ,X ,N) 
MINV( A,N ,D) 

Remarks 


The  lower  off-diagonal  elements  of  matrix  P,  which  are  equal 
to  -1.0,  are  not  stored. 

2.20   Subroutine  MPRD 

Purpose 

To  multiply  two  matrices  to  form  a  resultant  matrix. 


Usage 


CALL  MPRD(A,B,R,N,M,L,IAS,IBS,IRS) 
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Description  of  Parameters 


A  -  first  input  matrix 

B  -  second  input  matrix 

R  -  ou  t pu  t  ma  t  r ix 

N  -  number  of  rows  of  matrices  A  and  R 

M      -  number  of  columns  of  matrix  A  and  number  of  rows 
of  matrix  B 

L  -  number  of  columns  of  matrices  B  and  R 

IAS  -  index  of  the  first  element  of  matrix  A 

IBS  -  index  of  the  first  element  of  matrix  B 

IRS  -  index  of  the  first  element  of  matrix  R 

Method 

The  M  by  L  matrix  B  is  p rerau 1 1 ip  li ed  by  the  N  by  M  matrix  A 
and  the  result  is  stored  in  the  N  by  L  matrix  R.   The  indices 
IAS, IBS,  and  IRS  allow  the  multiplication  of  submatrices  of  A  and 
B,  and  the  product  is  stored  as  a  submatrix  of  R. 

Remarks 

Matrix  R  cannot  be  in  the  same  location  as  matrices  A  or  B. 

2.2  1   Subroutine  PORE 


Purpose 

To  compute  the  elastic  stresses  and  pore  water  pressures 
within  a  layer  of  finite  thickness  for  a  symmetrical  vertical 
load. 
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Usage 


CALL  PORE(XINP,YINP,M,NST,CX,IX,CY,IY,U,ABAR,BBAR) 


Block  Names 


SAPOD/IOUTP,W,H,GLOAD , CLOAD* ,NARC*,NRAD* 
POAPI/ALPHA( 30) ,L; 
P0FUN/QST(129),ETHST(129); 

*  parameters  marked  by  an  asterisk  are  not  needed  in  this 
subroutine 


Description  of  Parameters 


XINP     -  X-coor d i na t es  of  the  points  defining  the  embank- 
ment contour 

YINP     -  corresponding  Y-coor d i na t es 

M         -  number  of  points  (XINP, YINP) 

NST      -  number  of  approximating  load  strips 

CX       -  X-coo r d i na t es  divided  by  the  reference  value  W, 
for  which  the  stresses  are  to  be  computed 

IX       -  number  of  CX-values 

CY       -  Y-coo r d i na t es  divided  by  the  thickness  of  the 

compressible  layer  H,  for  which  the  stresses  are 
to  be  computed 

IY       -  number  of  CY-values 

U        -  resulting  excess  pore  water  pressures  (1X*1Y 
<    220  elements) 

ABAR     -  Skempton's  pore  pressure  coefficient  A 

BBAR     -  Skempton's  pore  pressure  coefficient  B 

IOUTP    -  logical  output  unit 
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W 

H 

GLOAD 

ALPHA 

L 
QST 

ETH 


-  reference  length  in  X-direction 

-  thickness  of  the  compressible  layer 

-  unit  weight  of  the  embankment  soil 

-  lengths  of  the  load  strips  which  approximate  the 
actual  embankment  load 

-  number  of  values  ALPHA 

-  resulting  vector  whose  elements  are  repeatedly 
used  in  subroutine  FUNCT 

-  resulting  vector  whose  elements  are  repeatedly 
used  in  subroutine  FUNCT 


Method  and  Reference 

The  total  stresses  within  a  compressible  layer  are  computed 
by  use  of  elastic  theory  for  plane  strain  conditions  and  a  sym- 
metric vertical  loading.   Poisson's  ratio  is  set  equal  to  0.5, 
and  the  underlying  stratum  is  assumed  to  be  rough  and  rigid. 
Because  of  the  complex  nature  of  the  stress  integrals,  a  numeri- 
cal integration  procedure,  based  on  either  Simpson's  rule  of 
Filon's  formulae,  has  been  chosen  for  their  evaluation. 

Subroutines  Required 


APR0X(X,Y ,MN,N  ,D) 

FUNCT(THETA,ETA,K,SIGX,SIGY,TAU) 
INTEG(ETA,XI ,B  ,AR) 

Remarks 


The  coordinates  YINP  are  positive  upward,  whereas  ETO  is 
positive  downward  with  the  coordinate  origin  at  the  surface  of 
the  compressible  layer.   ETA  is  positive  upward  with  the  origin 
at  the  bottom  of  the  compressible  layer. 
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2.22   Subroutine  RROOT 


Purpose 


To  compute  the  real  roots  of  the  characteristic  equation 


Usage 


CALL  RROOT(COF,XR,M) 


Descript io n  of  Paramet 


e  r  s 


COF 

XR 

M 


-  input  vector  containing  the  (M+l)  coefficients  of 
the  polynomial 

-  resulting  M  roots  of  the  polynomial 

-  degree  of  the  polynomial 


2.23   Sub  routine  SETL 


Purpose 


To  compute  settlements  for  constant  or  variable  coefficient: 
of  compressibility. 


Usage 


CALL  SETL(U,SETTL,IEND,KKK,MYE,F,FUP,FLO,KIAV) 
Block  Names  and  Lengths 


SACSE/ROC,ROCL,SVM,P,PC,PLOC,PO*,PCO*,IAV*,IK*,ISAT*,AAV*,AAH 
parameters  marked  by  an  asterisk  are  not  needed  in 
this  subroutine 
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Description  of  Parameters 


U  -  input  vector  of  dissipated  pore  water  pressures 

with  (MYE*IEND)  elements 

SETTL     -  resulting  vector  of  settlements 

IEND      -  number  of  elements  of  SETTL 

KKK       -  number  of  points  in  the  upper  layer  in  the 
vertical  direction 

MYE       -  total  number  of  points  in  the  vertical  direction 

F  -  multiplying  factor;  if  F=1.0,  the  consolidation 

settlements  are  computed;  if  F=l/B,  where  B  is 
Skempton's  pore  pressure  parameter,  total  set 
tlements  are  computed 

FUP       -  parameter  for  the  upper  layer;  contains  the 
soil  pa  rame  t  e  rs 

FLO       -  parameter  for  the  lower  layer;  contains  the  soil 
parameters 

KIAV=1    -  a  constant  coefficient  of  compressibility  is  used 

KIAV=2    -  a  variable  coefficient  of  compressibility  is  used 

ROC       -  ratio  between  the  recompression  and  the  virgin 
compression  indices  for  the  upper  layer 

ROCL      -  recompression  index  of  the  lower  layer  divided  by 
the  virgin  compression  index  of  the  lower  layer 

SVM       -  modified  mathematical  molecule  for  integration  in 

the  vertical  direction  with  MYE  or  (MYE+1)  elements 

P         -  present  overburden  effective  stress  at  MYE  points 

PC        -  preconsolidat ion  stresses  at  MYE  points 

PLOG      -  natural  logarithm  of  the  ratio  between  the  pre- 
consolidat ion  and  the  overburden  stresses 
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Method 

The  computations  are  performed  first  for  the  upper  layer; 
then,  the  displacements  of  the  lower  layer  are  evaluated  by  mak- 
ing the  same  computations  with  redefined  parameters.   A  lower 
layer  must  be  considered  only  if  KK.K<MYE. 

2.24   Subroutine  STAB 

Purpose 

To  search  automatically  for  the  minimum  factor  of  safety. 


Usage 


CALL  STAB(XC,YC,R,XINP,YINP,MINP,MX,MYE,SU,FX,D,DM,YY) 


Description  of  Parameters 


XC      -  X-coordinate  of  the  center  of  the  circular  slip  circle 

YC      -  corresponding  Y-coordinate 

R       -  radius  of  the  circular  slip  surface 

XI NP    -  X-coordinates  of  the  points  defining  the  embank- 
ment contour 

YINP    -  corresponding  Y-coo r di na t es 

MINP    -  number  of  points  (XINP.YINP) 

MX      -  number  of  equally  spaced  grid  points  in  horizontal 
direction 
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MYE     -  number  of  equally  spaced  grid  points  in  the 
vertical  direction 

SU      -  undrained  shear  strengths  at  (MX*MYE)  grid  points 

FX      -  resulting  factor  of  safety 

D       -  maximum  step  size  to  be  used  in  the  search 
procedure 

DM      -  minimum  step  size  to  be  used  in  the  search 
p  r  ocedu  re 

YY      -  minimum  permissible  value  for  YC 
Method  and  Reference 


The  programmed  method  embraces  two  tactical  maneuvres,  the 
"exploratory  move"  and  the  "pattern  move".   Starting  from  the 
input  base  point  (XC,YC),  an  exploratory  move  is  made  by  varying 
first  XC  and  then  YC.   If  this  move  is  successful,  a  pattern  move 
is  performed,  followed  again  by  a  pattern  move,  if  it  was  suc- 
cessful, and  by  an  exploratory  move,  if  it  was  not  successful. 
This  procedure  is  repeated  until  the  minimum  has  been  detected, 
whereafter  the  step  size,  by  which  XC  and  YC  are  varied,  is 
decreased.   When  the  minimum  factor  of  safety  is  found  by  use  of 
the  smallest  step  size,  DM,  it  is  checked  to  determined  whether 
the  corresponding  slip  circle  outcrops  in  front  of  the  toe  of  the 
embankment.   If  it  does  not,  an  additional  search  is  started  and 
the  smaller  of  the  obtained  minimum  factors  of  safety  is  returned 
together  with  the  coordinates  and  the  radius  of  the  corresponding 
arc. 
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Subroutines  Required 

VARYR(YC,XC,R,XINP,YINP,MINP,MX,MYE,SU,FS,DMIN,YY) 

Remarks 

The  Input  data  XC  and  YC  are  destroyed  and  replaced  by  the 
coordinates  of  the  arc  which  gives  the  minimum  factor  of  safety. 

The  step  size  Is  decreased  in  the  subroutine  by  dividing  by 
2;  it  is,  thus,  possible  that  the  smallest  step  size  used  is  less 
than  the  input  value  DM. 

2.25   Subroutine  VARYR 

Purpose 

To  vary  the  radii  of  trial  arcs  which  have  the  same  center 
coordinates  and  to  compute  the  associated  factors  of  safety. 

Usage 

CALL  VARYR(YC,XC,R,XINP,YINP,MINP,MX,MYE,SU,FS,DMIN,YY) 

Block  Names 


SAP0D/I0UTP*,W*,H ,GL0AD* ,CL0AD* , NARC* ,NRAD; 
*  parameters  marked  by  an  asterisk  are  not  needed  in 
this  subroutine 

Description  of  Parameters 


YC      -  Y-coordinate  of  the  center  of  the  circular  slip 
surfaces 
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XC      -  corresponding  X-coordinate 

R       -  resulting  radius  of  the  arc  which  gives  the  minimum 
factor  of  safety  for  the  center  (XC,YC) 

XINP    -  X-coordinate  of  the  points  defining  the  embankment 
contour 

YINP    -  corresponding  Y-coo rd i na t es 

MX      -  number  of  equally  spaced  grid  points  in  the 
horizontal  direction 

MYE     -  number  of  equally  spaced  grid  points  in  the 
vertical  direction 

SU      -  undrained  shear  strengths  at  (MX*MYE)  grid  points 

FS      -  resulting  factor  of  safety 

DMIN    -  minimum  step  size  to  be  used  in  the  search 
procedure 

YY      -  minimum  permissible  value  for  YC 

H       -  thickness  of  the  soft  soil  layer 

NRAD    -  number  of  trial  radii  to  be  used  at  the  input 
center  (XC.YC) 


Method  and  References 

After  determination  of  the  maximum  and  minimum  possible 
radii,  RMAX  and  RMIN,  respectively,  the  factors  of  safety  are 
computed  for  NRAD  radii  R=RMAX-I*  ( RMAX-RMI N) / ( NRAD- 1 ) .   The 
minimum  value  of  the  so-obtained  NRAD  factors  of  safety  is 
returned  to  the  calling  program. 


Subroutines  Required 


DETFS(XC,YC,R,XINP,YINP,MINP,MX,MYE,SU,FS) 
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3 .   Input  Data 

The  main  program  is  written  in  a  interactive  manner  so  that 
the  user  will  be  able  to  input  the  following  data. 

1.  Name  of  the  input  file  (length  limited  to  50  spaces) 

2.  Name  of  the  output  file  (length  limited  to  50  spaces) 

3.  Number  of  symbols  to  be  used  in  the  output  graph  after  exe- 
cution 

4.  The  characters  that  are  used  in  the  output  graph  after  exe- 
cution 

On  execution  of  the  program  the  following  messages  will 
appear  on  the  screen  one  by  one  and  the  user  should  input  the 
corresponding  data. 

1.  Specify  the  name  of  the  input  file 

2.  Specify  the  name  of  the  output  file 

3.  Specify  the  number  of  symbols  to  be  used  (usually  A) 

A.   Specify  the  characters  -  blank,  star,  grid,  symb(I)  1=1, 
mmm 


After  specifying  these  data,  the  program  will  use  the  data 
on  the  specified  input  file  and  write  the  results  on  the  speci- 
fied output  file. 
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Proposed  characters  are: 


Blank. 
Star 
Grid 
Symb(  1  ) 

Symb(2) 

Symb(3) 

Symb(4) 


-  a  blank  space 


_  * 


-  I 


=  U    -  for  avg.  degree  of  consolidation  as  a  percentage 
of  reference  load 

=  C    -  consolidation  settlement  as  a  percentage  of 
that  of  reference  load 

=  0    -  immediate  settlement  as  a  percent  of  that  of 
reference  load 

=  T    -  total  settlement  as  a  percent  of  that  of 
reference  load 


(See  sample  problems  for  the  proper  use  of  these) 

This  section  illustrates  the  sequence  of  input  data  in  the 
main  program.   A  free  format  style  is  used.   These  input  data 
must  be  given  in  an  input  file  (the  name  of  the  input  file  is 
specified  by  the  user). 

( a )  Input  data  corresponding  t  o  the  mesh-generation  for  the 
numerical  solution,  in  t  he  comp  res  s  i  bl e  layer  and  type  o  f 
analysis  required  . 

1.   MYE.MHE  ,ISP,HF,POR,IPOR 


MYE     -  number  of  equivally  spaced  points  in  the 
vertical  direction,  including  the  surface 
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and  the  bottom  of  the  compressible  layer 
in  the  finite  difference  mesh  in  the 
compressible  soil  MYE  <  12 


MHE 


number  of  points  in  the  horizontal  direction 
(mesh  points)  in  the  compressible  soil 
(MHE  <    40) 


ISP 


identifier  where 
ISP=0  -  settlements,  the  process  of 

consolidation  and  the  stability 

are  analyzed 
I  S P=  1  -  settlements  and  the  process  of 

consolidation  are  analyzed.   Times 

of  load  application  are  required 

as  input  parameters 


HF 


-  identifier  where 

HF=0.0  -  horizontal  flow  is  neglected  in 

the  process  of  consolidation 
HF=1.0  -  horizontal  flow  is  not  neglected 

in  the  process  of  consolidation 


POR 


ratio  horizontal  drainage  distance  divided 
by  (XT(IEND)*W)  in  the  case  of  ISP=1,  and 
Set  P0R=1.0  if  this  is  not  known 


I  POR 


identifier  where 
IP0R=1  -  The  user  provides  the  value  of  POR 
IP0R=0  -  the  user  provides  P0R=1.0 

the  program  will  calculate  the 

value  of  POR 


2.       JND    (add     this     card    only     if     ISP=0) 


JND         -    number    of     points     in    the    horizontal 

direction    for    which    output    are     required 

JND    <     10 


3.   (JSP(K)  ,K-1  ,JND)  (add  this  card  only  if  ISP=0) 

JSP(K)  -  indices  of  the  JND  points  for  which 

output  is  required.   K-l.JND  <  10;  the 
output  is  for  points  XE(JSP(K)),  where  XE 
are  MX  equally  spaced  coordinates  between 


LND 
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and  including  the  limits  AX(1)"W  and  AX(N1)*W; 
for  example,  specification  of  JSP(1)=1, 
JSP(JND)=MX  causes  the  output  of  information 
at  the  limits  W*AX(1)  and  W'AX(NI) 
respectively. 


LND    -  number  of  weeks  to  be  plotted  on  the 
time  axis  of  the  graphical  output 


5.   MX.NI  (add  this  card  only  if  ISP=0) 


MX    -  number  of  equidistant  points  in  the  X-direction 
between  limits  AX ( I )  and  AX(NI) 
MX  <■    51   User  may  chose  MX  as  equal  to 
MHE 


NI 


-  number  of  interval  limits  AX(I);  NI  c  5 


Notes  : 


AX(NI)*W  is  the  last  point  (which  is  considered  in  the 
analysis)  in  the  horizontal  direction  from  the  CL.   AX(1)=0.0 
the  centerline  of  the  embankment. 


is 


This  horizontal  distance  between  AX(1)  and  AX(NI)  is  divided 
into  NI  subdivisions.   Each  subdivision  is  further  divided  into 
MXT  points.   User  may  typically  use  3-4  subdivisions  for  each 
interval  between  AX(I)*W  and  AX(I+1)'W.   (Ref.  Krizek  and  Krug- 
man,  1972  for  details.) 

6.   (AX(I)=1,NI)  (add  this  card  only  if  ISP=0) 


AX(I)    -  sub-interval  limits  as  decimal  fractions  of 
reference  value  W   (select  values  such 
that  a  smooth  curve  along  the  pore  pressure 
vs.  AX(I)"W  will  give  the  expected 
shape  of  the  pore  pressure  distribution) 
(Hint  -  let  contour  points  of  the  embankment 
be  some  of  the  AX(  I ) *  W) 
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(MXT(I) ,1-1 ,NI-1  (add  this  card  only  if  ISP-0) 


MXT(I)    -  number  of  unequivally  spaced  points  XT 
between  the  consecutive  limits  AX(I) 
and  AX(I+1).   1=1,  NI-1.   Maximum  value 
of  MXT(I)  <  10.   Sum  of  all  MXT(I)  <  20 


IEND  (add  this  card  only  if  ISP=1) 


IEND    -  number  of  points  in  the  horizontal 
direction  for  which  output  are 
required 


9.   (XT(I)  1=1, IEND)  (add  this  card  only  if  ISP=1) 


XT(I)    -  X-coordinates  of  the  points  at  which 
the  settlements  and  the  consolidation 
behavior  are  determined 

Output  are  printed  for  points  at  distance 
XT( I)*W 


(b)  This  section  gives  data  corresponding  to  the  compressi- 
ble layer  under  the  embankment. 


10.   H  ,GL0AD,CL0AD,W ,YWM ,TGPHI 


H        -  thickness  of  the  compressible  layer 
dimension  (ft) 
If  H=0  the  program  is  terminated 

GLOAD    -  unit  weight  of  the  embankment  soil 
(pcf) 

CLOAD    -  undrained  strength  of  the  embankment 
soil  (psf) 


W 


-    reference    value    in    the    horizontal 
direction    (ft) 
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YWM 


thickness  of  a  drainage  blanket  placed 
on  the  surface  of  the  compressible 
soil  layer  (ft) 


TGPHI    -  tangent  of  the  angle  of  internal 
friction  of  the  drainage  blanket, 
if  there  is  one 


1  1 


IBCV,  LAYER 


IBCV 


identifier  where 
IBCV-1  -  impeded  drainage  at  Y=H 
=2  -  free  drainage  at  Y=H 
=3  -  no  drainage  at  Y=H 


LAYER 


number  which  indicates  the 
location  of  a  layer  interface;  e.g. 
LAYER=KK  means  that  the  layer 
interface  is  located  at  a  depth  below 
ground  surface  which  is  equal  to 

*°(MYE- 1 )  ,    t  ,      . 

I f  only  one  type  of  soil  is  to 

be  considered  SET  LAYER=0 

4  LE'LAYER'LE' (MYE-3) 


12.   HI.RKV  (add  this  card  only  if  IBCV=1) 


HI     -  thickness  of  impedance  layer 

RKV    -  ratio  of  vertical  permeabilities 

K(drainage  soil) 
K(impedance  layer) 


13.   RK, RC.REO , RAV , RCC ,ROCL  (add  this  card  only  if  LAYER  >  3) 


RK 


-  ratio  of  vertical  permeabilities 
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RC 


ROCL 


REO 


RCC 


RAV 


Kdower    soil) 
K(upper    soil) 


ra 
c 


ra 
to 

ra 

e 


o 
ra 
c 


c 

ra 

a 
v 


io  of  (vertical)  coeff.  of  consolidation  c 
lower  soil) 


upper  soil) 

io  of  recompression  index  of  lower  soil 
that  of  upper  soil 

io  of  initial  void  ratios 
lowe  r  soil) 


upper  soil) 

io  of  virgin  compression  index  C 

i 

1  owe  r  soil) 


upper  soil) 

io  of  coefficient  of  compressibility  a 
lower  soil) 


upper  soil) 


14.   IVAR.IAV.ICV 

All  these  are  identifiers  where 


IVAR=0    -  use  constant  coeff.  of  consolidation 

IVAR=1    -  use  variable  coeff.  of  consolidation 
which  are  obtained  either  by 
interpolation  between  CHIN(I) 
and  CVIN(I)  or  by  varying  the 
coeff.  of  compressibility  and/or 
the  coefficient  of  permeability 
(i.e.,  if  ICV  >  0) 

IAV=0     -  use  a  constant  coeff.  of  compressibility 
in  the  settlement  computations 

IAV-1     -  use  the  compression  indices  in  the 
settlement  computations 

ICV       -  number  of  data  pairs  [ PCV  (  I ) , CV IN( I ) ] 
and  [PCH( I) ,CHIN( I) ]  through  which 
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Lag ra ngean /Li nea r  interpolation 
polynomials  are  passed 

0  <    ICV  <    0 


15 .  EO ,  A 

EO    -  initial  void  ratio  of  the  upper  soil 

A     -  Skempton's  pore  pressure  coefficient  (A) 

16.  AVO  (add  this  card  only  if  IAV=0) 


AVO    -  constant  coeff .  of  compressibility 
to  be  used  in  the  settlement 
computations;  in  the  case  of 
two  layers  AVO  applies  to 
the  upper  layer   (ft  /lb) 


17.   CC, ROC, GAMMA  (add  this  card  only  if  IAV=1) 


CC       -  virgin  compression  index  (in  the  case  of  two 
layers  this  applies  to  the  upper 
layer) 

ROC      -  ratio  of  recompression  index  to  the  virgin 
compression  index  (in  the  case  of  two 
layers  -  upper  layer) 

GAMMA    -  effective  unit  weight  of  the  subsoil, 
constant  over  the  thickness  of  the 
compressible  layer 

If  GAMMA=0,  input  of  MY E  effective 
overburden  stress  at  equivally 
spaced  depths  must  be  input  (pcf) 


18.   P(I),  PC(I)  (add  this  card  only  if  GAMMA=0)  (total  of  MYE 

cards) 
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P(I) 


present  overburden  effective  stress  at  MYE 
equally  spaced  depths,  Including  the 
surface  MYE  <    12  (psf) 


PC(I)    -  pre  con  soli  da t ion  stresses  at  MYE  equally 
spaced  depths,  including  surface, 
MYE  <;  12  (psf) 


19.   CV,  CH  (add  this  card  only  if  IVAR=0  and  ICV-0) 


CV    -  constant  coeff  .  of  consolidation  in 
the  vertical  direction  (in  the 
case  of  two  layer-upper  layer) 
(f t  /day) 

CH    -  constant  coeff.  of  consolidation  in 

the  horizontal  direction  (in  the  case 
of  two  layers-upper  layer)  (ft  /day) 


20.   PCV(I),CVIN(I),PHC(I),CHIN(I) 
and  ICV>0)  (ICV  number  of  cards) 


(add  this  card  only  if  IVAR=1 


PCV( I) 


effective  stresses  at  which  the  vertical 
coeff.  of  consolidation  CVIN(I)  are 
defined   ICV  <    10   (psf) 


PCH( I) 


effective  stresses  at  which  the 
horizontal  coeff.  of  consolidation 
CHIN(I)  are  defined   (psf)   ICV  <    10 


CVIN(I)    -  variable  coefficients  of  consolidation 

in  the  vertical  direction  (interpolation 
is  done  in  subroutine  coef)  (ft  /day) 

ICV  <     10 

CHIN  (I)    -  variable  coeff.  of  consolidation 
in  the  horizontal  direction 
(interpolation  is  done  in 
subroutine  coef)   (ft  /day) 
(ICV  <  10) 


21.   KVO.KHO  (add  this  card  only  if  IVAR-1  and  ICV=0) 
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KVO    -  initial  coeff.  of  permeability  in 
the  horizontal  direction 

KHO    -  initial  coeff.  of  permeability  in 
the  vertical  direction 
(ft/day) 


22.   ISAT.IK  (add  this  card  only  if  IVAR=1  and  ICV  >    0) 
These  are  identifiers  where 


I SAT=0 
=  1 


IK-0 
=  1 


complete  saturation 
partial  saturation;  requires 
Skempton's  pore  pressure 
p  aramet er  B  <  1.0 

constant  coefficient  of  permeability 
horizontal  and  vertical  permeabilities 
are  variables;  void  ratio  vs.  the 
logarithm  of  the  coeff.  of 
permeability  is  a  straight  line 
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S,PU,HC,B  (add  this  card  only  if  IVAR=1,ICV  >    0  and  ISAT=1) 


S     -  degree  of  saturation  to  be  input  as  a 
decimal  fraction  <  1.0 

PU    -  initial  pore  gas  pressure,  if  PU  is 
not  defined  during  input,  it  is  set 
equal  to  the  sum  of  the  atmosphere 
pressure  plus  one  half  the  thickness 
of  the  compressible  layer  times 
the  unit  weight  of  water  (psf) 

HC    -  Henry's  constant  of  gas  solubility, 
HC=0.020  for  atmospheric  air, 
HC=0,029  for  methane,  HC=2.84 
for  hydrogen  sulfide  (at  68  F) 

B     -  Skempton's  pore  pressure  coefficient  (B) 
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SKV.SKH  (add  this  card  only  if  IVAR- 1 , ICV>0 , IK-1 ) 
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SKV    -  slope  of  the  void  ratio  vs.  logarithm  of 
vertical  coeff.  of  permeability 

SKH    -  slope  of  the  void  ratio  vs.  logarithm  of 
horizontal  coeff.  of  permeability 


25.   NC  (add  this  card  only  if  ISP=0) 


NC    -  number  of  init_ial  undrained  shear  strengths, 
CO(I),  and  ( c /p  ) -r a t ios  ,  CP ( I ) ; 
NC  <:  MYE  <■     12 


26.   Y  UA(I),  UB(I)  (add  this  card  only  if  ISP=0)  (total  of  NC 
cards) 


Y        -  vertical  distance  below  the  ground  surface 
at  which  the  initial  shear  strengths 
are  given  (positive  downwards)  (ft) 

UA(I)    -  initial  undrained  shear  strength 
C0( I )  at  depth  Y  (psf ) 

UB(I)    -  (c/p")-ratio  at  depth  Y 


*  At  this  point  the  program  will  write  the  data  on  the  OUTPUTFILE. 


( c )  Fol lowing  data  corresponds  to  the  REFERENCE  LOAD 


2  7.   MINP ,NS 


MINP 


NS 


the  number  of  points  where  the  coordinates  of 
the  embankment  will  be  given.   This  defines 
the  contour  of  the  embankment  (MINP  <;  20) 

number  of  load  strips  to  approximate  the 
actual  embankment  load  (NS  <  20) 
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28.   XINP(I),  YINP(I)  (tota  of  MINP  cards) 


XINP( I) 
YINP(  I  ) 


X-coo r d i na t es  of  the  points  defining 
the  embankment  contour  (ft) 

(MINP  <  20) 

Y-coo r d i na t es  of  the  points  defining 
the  embankment  contour  (ft) 
(MINP  <  20) 


( d  )   Following  data  corresponds  to  the  load  application 
(i.e.  each  step  of  load  to  the  embankment). 


29  .   NL  ,(IDEN( I)  ,1=1  ,NL) 


NL  -  number  of  load  strips  (NL  *  6) 

IDEN(I)  -  identifier  corresponding  to  the  It 
IDEN(I)  <  0  -  the  excess  pore  pre 
the  first  load  step 
the  input  residual 
the  excess  pore  wat 
to  the  Ith  load  are 
means  of  subroutine 
the  excess  pore  pre 
Ith  load  are  set  eq 
computed  for  the  re 
Note,  that  this  req 
Skempton's  coeffici 
are  identical  in  bo 
allows  the  check  of 
installation  for  wh 
pore  pressures  just 
application  are  kno 
measure  men t  s 


IDEN( I)  =  0  - 


IDEN(I)  =  1  - 


IDEN( I)  <  0  - 


h  load  strip;  where 
ssure  due  to 

are  equal  to 
pore  pressure 
er  pressure  due 

compu  t ed  by 

PORE 
ssure  due  to  the 
ual  to  those 
fere  nee  load, 
uires  that 
ents  A  and  B 
t h  cases 

an  existing 
ich  the  excess 

after  load 
wn  f  rom  field 


30.   (TL(I) ,1-1 ,NL)  (add  this  card  only  if  ISP=1) 
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TL(I)    -  times  of  load  application  (i.e.  each 
step  of  load)  in  case  where  ISP-1 
NL  <    6  (days) 


31.   FSI ,SPEC( 1 )  ,SPECU( 1 )  , TA  ,DMAX , DMI N  ,  XC  ,  YC  ,  ZZ  (add  this  card 
only  if  ISP-0) 


FSI 


factor  of  safety  required  at  the  time  of 
application  of  the  first  load 


SPECS(l)    -  specified  fraction  of  the  consolidation 
settlement  due  to  the  reference  load. 
This  settlement  must  have  occurred  before 
a  new  load  is  applied. 

SPECU(l)    -  when  the  non-dissipated  average  pore 
pressures  become  less  than  5%  of  the 
total  average  pore  pressure  just  after  the 
application  of  the  last  load  at  1END*SPECU 
points  XT  the  subsequent  loads  are  disregarded 
SPEC  is  a  decimal  fraction.   IEND  is  the 
total  number  of  points  in  the  X-direction 
created  by  the  program   (see  Sec.  2.1) 


TA 


available  construction  time.   This  is  the 
time  at  which  the  final  load  must  have 
been  applied  (days) 


DMAX 


maximum  step  size  to  be  used  in  the 
variation  of  XC  and  YC  in  the  search 
procedure  for  the  minimum  factor  of 
safety  (ft) 


DMIN 


minimum  step  size  to  be  used  in  the 
variation  of  XC  and  YC  in  the  search 
procedure  for  the  minimum  factor  of 
safety  (ft) 


XC 


YC 


X-coordinate  of  the  center  of  the  first 
trial  arc ,  If  XC-0  is  input,  the      " 
program  selects  a  starting  value  (ft) 

Y-coordinate  of  the  center  of  the  first 
trial  arc ,  IF  YC-0  is  input,  the 
program  selects  a  starting  value  (ft) 
( Note  -  positive  upward) 
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32.   NARC, NRAD  (add  this  card  only  if  ISP-0) 


NARC    -  one-half  the  number  of  subarcs  within  the 
subsoil  to  be  used  in  subroutine  DETFS; 
NARC  >     1 

NRAD    -  number  of  trial  arcs  to  be  used  with  each 
trial  center  (XC.YC)  in  the  stability 
analysis;  NRAD  >    1 


_>  j  .   MINP,NS,IAB  (gives  data  corresponding  to  the  first  load) 


MINP    -  same  as  defined  earlier 
the  first  load 


NS 


IAB 


same  as  defined  earlier 
the  first  load 


-  corresponding  to 


corresponding  to 


identifier  where 

IAB=0  -  Skempton's  pore  pressure  coefficients 
A  and  B  as  defined  for  the  last  load 
are  also  used  to  compute  the  pore 
pressures  due  to  the  load  addition 

IAB=1  -  redefine  A  and  B  (i.e.  assign  new 
values  for  A  and  B) 


34.  XINP( I) ,YINP( I)  (total  of  MINP  cards) 

XINP(I)    -  as  defined  earlier  -  corresponding  to  the  first  load 
YINP(I)    -  as  defined  earlier  -  corresponding  to  the  first  load 

35.  A,B  (add  this  card  only  if  I BA= 1 ) 


A,B    -  corresponding  Skempton's  pore  pressure 
parameters  (new) 
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AC  this  point  of  the  program,  if  satisfactory  FS  is  not  reached, 
within  the  available  construction  time,  for  the  first  load  the 
program  is  terminated  (i.e.,  no  loads  can  be  added  to  the  existing 
embankment).   Note  -  this  is  for  ISP=0 


( e )  The  following  data  refers  t  o  the  residual  pore  pressures  urn 
the  embankmen  t . 


36.   IRP 


IRP 


-  identifier  where 

IRP=0  -  no  residual  pore  pressures  are  input 
IRP=1  -  residual  pore  pressure  at  points 

(W'XT,  H'YE)  are  input  columnwise 
IRP=2  -  residual  pore  pressure  at  arbitrary 
points  are  input 


37.   (UC(  I) ,1= 1 ,ISUM)  (add  this  card  only  if  IRP=1) 


UC(I)    -  residual  pore  pressures  under  the  embankment 

at  points  (WcodtXT,  H*YE)  are  input  columnwise 
(psf  ) 


38.   X ,Y ,UA( I) .COUNT  (add  this  card  only  if  IRP=2)  (number  of  cards 
depends  on  number  of  arbitrary  pore  pressures  to  be  given) 


X        -  the  X-coordinate  at  which  residual  pore  pressure 
UA(I)  is  specified 

Y        -  the  Y-coordinate  at  which  residual  pore  pressure 
UA(I)  is  specified 

COUNT    -  identifier  where 

COUNT=0.0  -  in  all  the  cards  except  the  last  card 
C0UNT=1.0  -  the  last  data  card  on  residual  pore 
pressure 


At  this  point  of  the  program,  the  internal  file  unit  1  will 
be  rewinded  to  initiate  the  recording  of  the  output  data.   The 
program  calculates  the  required  parameters  corresponding 
to  the  first  load. 
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*  Steps  in  this  section  should  specify  second  and  following 
loads  for  a  total  of  (NL-1)  lifts  with  proper  values 
corresponding  to  each  step  of  load,  i.e.  total  of  NL  load 
applications  NL  <  6  are  allowed. 


( f )  The  following  data  corresponds  t  o  the  second  and  foil  ow- 
ing loads  .   [This  data  should  cover  (N_L- J_)  loading  steps.  ] 


39.   MINP,NS,IAB  (gives  data  corresponding  to  the  2nd  load  step) 


MINP 

NS      as  defined  earlier  -  corresponding  to  the  2nd 

IAB     load  step 


40.   XINP( I ) , YINP( I )  (gives  the  contour  of  the  embankment  for  the 
2nd  or  following  load  steps)  (total  number  of  cards  =  MINP) 


XINP(I)    -  as  defined  earlier  -  corresponding  to  the 
YINP(I)       2nd  or  following  load  step 


41.   A,B  (add  this  card  only  if  IAB=1) 


A    -  pore  pressure  parameters 
B 


42.   FSI  ,  SPECS(LL)  ,SPECU( LL)  ,TMIN ,XC ,YC ,ZZ  (add  this  card  only  if 
ISP=0) 


FSI 


specified  required  factor  of  safety  for  the  2nd 
load  step 


SPECS(LL)    -  specified  fraction  of  the  consolidation 

settlement  due  to  reference  load  that  must 
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SPECU(LL) 


TMIN 


have  occurred  before  Che  addition  of 
the  next  load  step 

if  an  average  degree  of  consolidation  of 
957.    due  to  the  LIFT-TH  load  is  obtained  at 
SPECU(LIFT)*IEND  points  XT  without  a 
sufficient  factor  of  safety  for  the  present 
load  (i.e.LLth  load)  the  LIFTth  load  is 
taken  to  be  the  last  load  and  NL  is 
set  at  NL-LIFT  (i.e.  the  present  load  will 
not  be  added  to  the  embankment) 
SPECU  is  input  as  a  decimal  fraction 
(see  Sec.  2.1) 

time  which  must  have  passed  after  a  load 
application  before  the  first  stability 
is  made  to  determine  whether  the  next  load 
can  be  applied.   (This  saves  unnecessary 
computer  time  in  calculating  FS  before 
sufficient  pore  pressure  is  dissipated.) 


XC 
YC 
ZZ 


as  defined  previously 
LLth  load 


-  corresponding  to  the 


Note:   The  program  can  handle  analysis  of  multiple  embankments  in  a 
single  run. 

This  is  done  by  adding  the  card  No.  10  at  the  end  of  the 
cards  for  the  previous  embankment  but  with  replacing  H  =  99. 

This  makes  the  program  to  goto  the  beginning  of  cards.   For 
second  or  following  embankments  data  cards  should  be  repeated 
from  1-42  as  in  the  case  of  first  embankment. 

To  terminate  the  program  at  the  end  of  analysis  of  n 
embankment,  simply  add  the  card  #10  with  H  =  0  at  the  end  of  data 
cards  for  the  n    embankment. 

4  .   Sample  Problems 


Two  sample  problems  have  been  prepared  to  show  some  of  the 
features  of  the  computer  programs.   In  the  first  problem,  only  a 
settlement  analysis  for  a  specified  load  history  is  required, 
whereas  the  second  problem  simulates  actual  design  conditions 
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using  soil  data  and  cross-section  from  an  unpublished  report  by 
the  STATE  OF  ILLINOIS,  DIVISION  OF  HIGHWAYS  (1967). 

4  .  1   Sample  Problem  for  Se  1 1 1  emen  t  Analysis  (  Sample  Problem  // _1_) 

In  this  first  problem  the  load,  which  includes  a  surcharge 
of  5  feet,  is  applied  at  time  TL(1)=60  days,  and  the  surcharge  is 
removed  at  time  TL(2)=160  days.   The  geometry  is  given  in  Figure 
4.1,  and  the  soil  parameters,  which  are  assumed  to  vary  during 
consolidation,  are  compiled  in  Table  4.1  and  in  Figure  4.2.   Out- 
put of  pore  water  pressures  is  required  at  specified  points  under 
the  embankment.   The  input  sequence  for  the  soil  parameters,  the 
geometry,  and  the  load  characteristics  follows  the  list  of  data 
cards  given  in  Section  3  for  program  "Modified  SAND"  with  ISP=1, 
and  the  contents  of  the  data  cards  are  listed  in  Table  4.2  in 
Appendix  A. 


The  computer  output  has  been  abridged,  where  it  was  repeti- 
tive in  nature,  and  is  reproduced  in  Figure  4.3  in  Appendix  A. 

4.2   Sample  Design  Problem  ( Sample  Problem  #2_) 

The  geometry  for  this  problem  is  depicted  in  Figure  4.4 
together  with  a  summary  of  the  soil  conditions  deduced  from  the 
boring  log  shown  in  Figure  4.5  and  the  consolidation  test  data  of 
Figure  4.6.   To  account  for  the  smaller  initial  void  ratio  and 
larger  coefficients  of  consolidation  near  the  ground  surface,  it 
was  decided  to  introduce  a  layer  interface  at  a  depth  of  (H- 
H')=5.2  feet,  corresponding  to  LAYER=3. 
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The  design  must  satisfy  the  following  requirements:   (1)  No 
settlements  due  to  primary  consolidation  must  occur  after  sur- 
charge removal;  in  addition,  some  settlements  due  to  secondary 
compression  should  be  eliminated;  (2)  the  construction  time  is 
not  to  exceed  12  months;  and  (3)  the  factor  of  safety  against 
instability  of  the  embankment-subsoil  system  must  be  equal  to  or 
greater  than  1.15  during  construction  and  1.25  under  the  final 
load. 

The  input  sequence  for  the  soil  parameters,  the  geometry, 
and  the  load  characteristics  follows  the  input  data  in  Section  3 
for  program  Modified  SAND  with  ISP=0,  and  the  contents  of  the 
data  cards  are  listed  in  Table  4.3  (Appendix  A).   The  final  out- 
put includes  average  degrees  of  consolidation  for  a  point  at  the 
center  of  the  embankment  and  another  point  close  to  the  embank- 
ment toe,  and  is  reproduced  in  Figure  4.7  (Appendix  A). 

4 . 3   Summary  and  Conclusions 


The  objectives  of  this  study  were  (a)  to  elucidate  the  prac- 
tical and  theoretical  bases  for  using  the  controlled  rate  of  con- 
struction technique  to  design  a  highway  embankment  underlain  by 
soft  ground,  and  (b)  to  synthesize  presently  available  procedures 
in  a  comprehensive  computer  program  in  which  special  attention  is 
given  to  the  horizontal  and  vertical  drainage,  without  sand  drain 
installations.  An  existing  program  SAND  which  considers  sand 
drains  has  been  modified  for  this  purpose. 
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To  facilitate  the  mathematical  treatment,  the  overall  prob- 
lem was  conveniently  divided  into  four  parts,  which  deal  with  (a) 
the  initial  increase  in  excess  pore  water  pressures  caused  by  an 
increase  of  the  vertical  load  on  the  surface  of  the  compressible 
layer,  (b)  the  process  whereby  these  pore  water  pressures  are 
dissipated  with  time,  (c)  the  associated  settlements,  and  (d)  the 
stability  of  the  embankment-foundation  system. 


Based  on  the  effective  stress  principle,  the  stress 
increases  associated  with  primary  consolidation  are  taken  to  be 
equal  to  the  dissipated  pore  water  pressures.   The  latter  are 
computed  by  means  of  Skempton's  pore  pressure  coefficients  A  and 
B  and  a  solution  for  the  total  stresses  due  to  a  symmetric  verti- 
cal load  acting  on  a  linearly  elastic  layer  of  finite  thickness, 
which,  in  turn,  is  underlain  by  a  rough  rigid  substratum.   The 
dissipation  of  excess  pore  water  pressures  is  evaluated  by  use  of 
a  consolidation  theory  which  accounts  for  horizontal  and  vertical 
drainage  conditions,  anisotropic  permeability,  time-dependent 
variations  of  the  soil  parameters,  and  partial  saturation.   As  a 
result  of  the  increases  in  effective  stresses  due  to  the  dissipa- 
tion of  pore  water  pressures,  the  strength  of  the  subsoil 
increases,  and  this  is  considered  in  a  stability  analysis  in 
terms  of  total  stresses  by  use  of  the  c/p-ratio. 
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It  is  economically  possible  to  establish  a  number  of  design 
charts,  which  include  (a)  excess  pore  pressure  distribution 
curves,  (b)  con s ol ida t ion- t ime  curves,  (c)  stability  charts,  (d) 
graphs  of  maximum  embankment  height  versus  thickness  of  the 
compressible  layer,  and  (e)  relationships  for  equivalent  uniform 
strength  after  complete  consolidation  versus  thickness  of  the 
subsoil.   However,  this  is  beyond  the  scope  of  this  report. 

Since  the  computational  technique  used  in  the  "Modified 
Sand"  remains  the  same  as  in  the  original  program  sand  the  fol- 
lowing remarks  are  valid. 

A.   With  regard  to  the  computation  of  the  initial  excess 
pore  water  pressure  distribution,   the  following  conclusions  can 
be  drawn : 

1.   The  form  of  the  stress  equations  requires  the  numerical 

integration  of  oscillating  integrands,  and  convergence  of 
the  extended  Simpson's  rule  or  Filon's  formulae  with  inter- 
val halving  depends  on  the  geometry  of  the  problem. 
Poorest  convergence  was  obtained  in  cases  of  heavily  oscil- 
lating integrands  when  the  ratio  of  the  load  width  to  the 
thickness  of  the  compressible  layer  was  large. 


2.   When  the  pore  pressure  coefficient  B  is  held  constant  and 
equal  to  unity,  the  influence  of  the  pore  pressure  coeffi- 
cient A  increases  as  the  thickness  of  the  compressible 
layer  increases,  and  the  average  pore  water  pressures  are 
larger  and  extend  farther  in  the  horizontal  direction  when 
A  is  larger. 
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3.   As  the  compressible  layer  becomes  thinner  relative  to  the 
load  width,  closer  agreement  is  obtained  between  the 
applied  vertical  load  and  the  resulting  average  pore  pres- 
sure distribution. 

A.   The  influence  of  shear  stresses  causes  some  concentration 
of  average  pore  water  pressures  near  the  edges  of  the  load 


B.  With  regard  to  the  computation  of  primary  consolidation 
settlements,  direct  proportionality  between  the  average  degree  of 
consolidation  and  the  resulting  settlement  will  occur  only  when 
constant  coefficients  of  consolidation  and  a  constant  coefficient 
of  compressibility  are  used. 

C.  With  regard  to  the  stability  analyses,  the  following 
conclusions  can  be  drawn  from  a  critical  comparison  of  the  charts 
in  the  report  (Krizek  and  Krugman,  1972): 

1  .   Depending  on  the  geometry  of  the  embankment  and  the  soil 
parameters  of  the  embankment  and  the  subsoil,  the  assump- 
tion of  a  circular  slip  surface  will  give  reliable  factors 
of  safety  only  for  sufficiently  large  subsoil  thicknesses. 

2.   The  stabilizing  influence  of  flattening  the  embankment 

slope  decreases  as  the  thickness  of  the  subsoil  increases. 
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3.  The  slip  circle  resulting  in  a  minimum  factor  of  safety 
generally  tends  to  penetrate  the  soft  subsoil  as  deep  as 
possible. 

4.  The  factor  of  6afety  is  not  proportional  to  the  height  of 
the  embankment,  but,  given  identical  soil  parameters,  it 
depends  on  the  ratio  of  the  embankment  height  and  the 
thickness  of  the  compressible  layer. 

Reference 


Krizek,  R.  J.  and  Krugman,  P.  K.  (1972)  "Placement  Rates  for 
Highway  Embankments",  Vol.  1-4,  Final  Report  1972,  Proj  .  IHR-602, 
Northwestern  University,  The  Technical  Institute,  Dept.  of  Civil 
Engineering,  Evanston,  Illinois   60201. 
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Fig.  4.1  Contour  of  the  Embankment  Configuration 
for  the  Sample  Problem  1 
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Table  4.1  Soil  Data  for  the  First  Sample  Problem 


Soil  Parameter 

Embankment 

Subsoil 

Unit  weight  (pcf) 

125 

58.8 

Initial  coefficient  of 
permeability  (feet/day) 

Kun  =  6.26xl0-3 
Kyo  =  3.08xl0-3 

Slope  of  the  void  ratio 
versus  log  coefficient  of 
permeability  curve 

SKH  r  0.35 
SKV  r  0.40 

Initial  void  ratio,  e 

0 

1.175 

Compression  index,  C 

1.18 

Skempton's  pore  pressure 
coefficients 

A  =  0.5 
B  =  0.95 

Degree  of  saturation,  S 

S  =  0.98 

Henry's  coefficient  of 
gas  solubility,  HC 

0.02 
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11,40,10,1,1. 000  ,  1 . 00 ,0 

40 

10 

0.0,.1,.2,.3,.4,.5,.7,.9,1.5,1.600 

16.0,  125.0,  1000.  ,100.  ,2.0,0.0 

3,0 

1,1,0 

1 . 175,0. 500 

1.18,1.0,58.80 

. 00308,0.00625 

1  ,1 

0.98,0.0,0.2,0.95 
0.4,0.35 

3,5 

0.0,5.0 
40.0  ,5.0 
70.0,0.0 

2  0  1 

60.0,160.0 
4,10,0 
0.0,10. 
30.0,10.0 
40. 0,5.0 
70.0,0.0 

2 

35.0,4.0,75.0,0.0 

35.0,15.0,75.0,0.0 

105.0,8.5,25.0,1.0 

3,5,0 

0.0,5.0 

40.0,5.0 

70.0,0.0 

0.0,0.0,0.0,0.0,0.0,0.0 


Table  4.2-  Data  Cards  for  Sample  Problem  1 
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********************************** 

*  * 

*  CONSOLIDATION  PROBLEM       * 

*  * 

*  STEP  LOADING  &  SURCHARGE    * 
********************************** 


Abridged  output  for  Sample  Problem  1 

THE  PORE  WATER  PRESSURES  ARE  COMPUTED  AT 


YE/H 

0.000 

0.  100 

0.  200 

0.  300 

0.400 

YE/H 

0.  500 

0.  600 

0.  700 

0.  800 

0.900 

YE/H 

1.000 

XT/W 

0.000 

0.  100 

0.  200 

0.  300 

0.400 

XT/W 

0.  500 

0.  700 

0.  900 

1.  500 

1.600 

THE  SUBSOIL  IS  DESCRIBED  BY  THE  FOLLOWING  PARAMETERS 
WHICH  ARE  GIVEN  FOR  THE  UPPER  LAYER 
IN  CASE  OF  STRATIFICATION 

TOTAL  THICKNESS   H=   16.000   FEET 
reference  for  X-COORD  W  =   100.000  FEET 

SKEMPTON  PORE  PRESSURE  COEFFICIENTS  ARE 
A=   0.50  AND  B=   0.95 

DEGREE  OF  SATURATION  IS  S=  0.980 

HENRY'S  CONSTANT  OF  GAS  SOLUBILITY  HC  =    0.200 

INITL  PORE  GAS  PRESSURE  IS  PU=    0.2616E+04  PSF 

INITIAL  VOID  RATIO  =   1.175 

THE  COMPRESSION  INDEX  IS  =     0.1180E+01 
RECOMPRESSION  INDEX/CC    ROC=      1.000 
INITIAL  EFFECTIVE  P  AND  PRE COMPRE S S I  ON 


STRESSES 
Y  IN  FT 

0.000 

1 

3 

4 

6 

8 


PC 


600 

200 

800 

400 

000 

9.600 

11.200 

12.800 

14.400 

16.000 

NOTE  -P(l)  AND 

as  compa red  to 


AS  USED  IN 
P  IN  PSF 

94.08 
94. 
188. 
282. 
376. 
470. 
564. 
658. 
752. 
846. 
940. 
PC(1) 


THE 
PC 


COMPUTATIONS 
IN  PSF 
94.08 


08 
16 
24 
32 
40 
48 
56 
64 
72 
80 
MAY 


94, 
188, 
282, 
376, 
470, 
564, 
658, 
752, 
846, 
940, 


08 
1  6 
24 
32 
40 
48 
56 
64 
72 
80 


HAVE  BEEN  CHANGED 


input  values  to  avoid  over  flow 


THE  INITIAL  PERMEABILITIES  ARE  INVERTICAL  DIRn, 
HORIZONTAL  DIRN  KH0=    0.6250E-02  FT/DAY 
THE  SLOPES  OF  THE  E  Vs  LOG ( K) -CURVES  ARE 
IN  VERTICAL  DIRN,  SKV=      0.400 
IN  HORI.  DIRN,  SKH=       0.350 


KVO' 


0.3080E-02   FT/DAY 


THE  DRAINAGE  CONDITIONS  ARE 


10  - 


NO  DRAINAGE  AT  THE  BOTTOM 


REFERENCE  LOAD 
************** 

SKEMPTON  PORE 
A«=   0.50  AND 


PRESSURE 
B-   0.95 


COEFFICIENTS  ARE 


THE  LOAD  CHARACTERISTICS  ARE  GIVEN  BY 
THE  UNIT  WEIGHT  GLOAD=    125.00   PCF 
THE  COHESION  ,  CLOAD=    1000.00  PSF 
THICKNESS  OF  THE  DRAINAGE  BLANKET  YWM 
THE  TANGENT  OF  THE  ANGLE  OF  INTERNAL 

FRICTION  TGPHI=    0.0000 
MINP=     3  COOR  POINTS  XINP/YINP 

0.00  FEET         5.00 
40.00  FEET         5.00 
70.00  FEET         0.00 
THE  ACTUAL  LOAD  IS  APPROXIMATED  BY 
OF  EQ  INTENSITY  WHICH  EXTEND  FROM  X= 


2.00  FT 


FEET 

FEET 

FEET 

5  LOADS 

0  TO  ALPHA(I) 


IF  ALPHA(I)  IS  NEGATIVE,  THIS  LOAD  IS  SUBTRACTED 


ALPHA( 
ALPHA( 
ALPHA( 
ALPHA( 
ALPHA( 


1) 
2) 
3) 
4) 
5) 


67.000  FEET 

61.000  FEET 

55.000  FEET 

49.000  FEET 

43.000  FEET 


THE  AVERAGE  PORE  PRESSURES,  UAVER(I) 
THE  CONSOLIDATION  SETTLEMENTS,  SETRC(I)  AND 
THE  TOTAL  SETTLEMENTS , SETRT ( I ), AT  XT(I)  ARE 
XT  FEET      UAVER  (PSF)     SETRC  FT.     SETRT  FT 


0, 
10, 
20. 
30, 
40, 
50. 
70 
90, 
150 
160. 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


585.99 

3.  781 

3.896 

585.24 

3.  777 

3.892 

581  .91 

3.  761 

3.876 

573.86 

3.  728 

3.842 

540.09 

3.604 

3.715 

401  .90 

2.975 

3.074 

112.84 

1.131 

1.  180 

37.  77 

0.515 

0.539 

2.43 

0.037 

0.039 

1  .52 

0.023 

0.024 

THE  NUMBER  OF  LIFTS  IS  NL=    2 

SINCE  ISP-1  TIMES  OF  LOAD  APPLICATION 
ARE  INPUT  TO  BE 


TL( 
TL( 


1) 

2) 


60. 
160. 


DAYS 
DAYS 


RESIDUAL  PORE 
X  (FEET) 
35.000 
35.000 
105.000 


PRESSURES  ARE 
Y  (FEET)     UC 

4.  000 
15.000 

8.  500 


IN  PUT 

(PSF) 
75.000 
75.000 
25.000 


AS 


LOAD  NO    1  APPLIED  AT  TL«=      60. DAYS 
******************************************* 


8: 


SKEMPTON  PORE 
A«=   0.50  AND 


PRESSURE 
B=   0.95 


COEFFICIENTS  ARE 


THE  LOAD  CHARACTERISTICS  ARE  GIVEN  BY 

THE  UNIT  WEIGHT  GL0AD=     125.00   PCF 

THE  COHESION  ,  CLOAD-    1000.00  PSF 

THICKNESS  OF  THE  DRAINAGE  BLANKET  YWM-    2.00  FT 

THE  TANGENT  OF  THE  ANGLE  OF  INTERNAL 
FRICTION  TGPHI-    0.0000 

MINP"      4  COOR  POINTS  XINP/YINP 

0.00  FEET  10.00  FEET 
30.00  FEET  10.00  FEET 
40.00  FEET  5.00  FEET 
70.00  FEET         0.00  FEET 

THE  ACTUAL  LOAD  IS  APPROXIMATED  BY   10  LOADS 

OF  EQ  INTENSITY  WHICH  EXTEND  FROM  X=0  TO  ALPHA(I) 
IF  ALPHA(I)  IS  NEGATIVE,  THIS  LOAD  IS  SUBTRACTED 


ALPHA( 
ALPHA( 
ALPHA( 
ALPHA( 
ALPHA( 
ALPHA( 
ALPHA( 
ALPHA( 
ALPHA( 


1) 
2) 
3) 

4) 
5) 
6) 
7) 
8) 
9) 


ALPHA( 10) 


67 

61  , 

55. 

49, 

43 

39 

37. 

35, 

33 

31 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


FEET 
FEET 
FEET 
FEET 
FEET 
FEET 
FEET 
FEET 
FEET 
FEET 


0.  DAYS  X/W 


0.000  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOW 


0 
1217 
1220 
1223 
1226 
1229 
1232 
1235 
1238 
1241 
1244 


.000 
.070 
.074 
.  127 
.  202 
.  288 
.  371 
.432 
.484 
.515 
.547 


0.  DAYS  X/W 


0.100  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOW 


0.000 
1203.986 
1207.619 
1211.390 


-  82  - 


1215, 

1219 

1224 

1229, 

1235. 

1242, 


356 
585 
196 
339 
257 
284 


1250. 778 


0.  DAYS  X/W 


0.200  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLC 


0 
1  184 
1  185 
1  186 
1  188 
1  192 
1  198 
1206, 
1217, 
1231  , 
1249, 


000 
936 
586 
735 
883 
537 
191 
31  1 
356 
762 
895 


T  = 


0.  DAYS  X/W 


0.300  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLO! 


0 
1  137 
1  106 
1088 
1078 
1075 
1077 
1085 
1099 
1120 
1148 


.000 
.844 
.615 
.493 
.696 
.409 
.865 
.907 
.824 
.355 
.747 


0.  DAYS  X/W 


0.400  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOV 


S3  - 


0, 
701, 
735, 
758, 
775, 
790, 
802, 
814, 
825, 
837, 
850. 


000 
713 
499 
469 
872 
1  12 
631 
362 
931 
748 
041 


0.  DAYS  X/W 


0.500  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOW 


0, 
510, 
519, 
527, 
534, 
542, 
549, 
554, 
559, 
563, 
565, 


000 
896 
972 
333 
959 
353 
100 
951 
745 
326 
497 


0.  DAYS  X/W 


0.700  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOW 


0, 
184, 
198, 
205, 
207, 
207, 
206, 
202, 
197, 
190, 
182, 


000 
606 
226 
020 
824 
960 
043 
389 
170 
481 
376 


-  8^ 


0.  DAYS  X/W 


0.900  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOV, 


0. 
99, 
96, 
93, 

90, 
87, 
84, 
81, 
78, 
74, 
70, 


000 
416 
627 
800 
903 
904 
783 
525 
128 
598 
955 


T  = 


0.  DAYS  X/W 


1.500  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOV 


0, 
■3, 
•3, 
■3, 
•3, 
■3. 
•3, 
-4, 
■4, 
-4, 
-4, 


000 
144 
296 
459 
630 
810 
996 
188 
386 
588 
793 


0.  DAYS  X/W 


1.600  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOV 


0, 
11, 
11, 
11, 
12, 
12, 
12, 
12, 
12, 
12 
•12 


000 
767 
867 
969 
077 
190 
308 
430 
554 
681 
811 


8cj  - 


DAYS  X/W 


0.000  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOW 


0 
1005 
1  198 
1221, 
1225 
1229 
1232 
1235 
1238 
1241 


000 
060 
883 
441 
869 
022 
104 
166 
208 
145 


1243.217 


7.  DAYS  X/W 


0.100  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOW 


0, 
994, 
1186, 
1209, 
1215, 
1219, 
1224, 
1229 
1235 
1242 
1247 


000 
349 
681 
759 
080 
404 
050 
243 
208 
004 
581 


7.  DAYS  X/W 


0.200  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOW 


0. 
977. 
1164, 
1184, 
1188, 
1191. 
1197, 
1205, 
1217, 
1230. 


000 
065 
192 
553 
139 
965 
717 
925 
008 
826 


1242.611 


0, 
927, 
1084, 
1085, 
1076, 
1073, 
1075, 
1083, 
1097, 
1117. 
1  135 


DAYS  X/W 


86 


0.300  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLO 


000 
833 
815 
476 
676 
297 
710 
785 
741 
368 
339 


T  = 


DAYS  X/W 


0.400  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FL01 


0. 
577, 
721  , 
757, 
776, 
790, 
803, 
815, 
827, 
838, 
846. 


000 
542 
089 
299 
237 
899 
662 
556 
204 
624 
717 


T= 


DAYS  X/W 


0.500  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOV 


0, 
414, 
509, 
527, 
535, 
543, 
549, 
555, 
560 
563 
565 


000 
049 
569 
355 
724 
083 
781 
599 
358 
843 
502 


DAYS  X/W 


-•'87  - 
0.700  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOW 


0, 
150. 
194, 
205. 
208, 
209, 
207, 
203, 
198, 
192, 
187, 


000 
603 
164 
344 
848 
181 
338 
703 
499 
169 
244 


DAYS  X/W 


0.900  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOW 


0 
78 
94 
94 
91 
88 
85 
81 
78 
75 
72 


000 
568 
598 
130 
4  14 
405 
261 
984 
583 
209 
924 


7.  DAYS  X/W 


1.500  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOW 


000 
739 
227 
388 
511 
635 
764 
896 
3.032 
3.  165 
3.253 


7.     DAYS    X/W 


-   88   - 


1.600     PORE     PRESSURES     IN     PSF    DUE    TO    VERT    +    HORI     FLC 


0.000 
-9. 327 
•11. 585 
■11  .964 
•12.096 
■12.211 
■12.  329 
■12.450 
■12. 574 
■12.695 
■12.  776 


T  = 


49.  DAYS  X/W 


0.000  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLO 


0, 
623, 
1002, 
1  160, 
1210, 
1224, 
1230, 
1233, 
1236, 
1238, 
1239, 


000 
692 
445 
141 
504 
987 
310 
690 
544 
756 
663 


49.  DAYS  X/W 


0.100  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLO 


0, 
616, 
992, 
1149, 
1200, 
1216, 
1223 
1228, 
1234, 
1238 
1240 


000 
674 
046 
208 
274 
000 
013 
602 
115 
871 
950 


89 


49.  DAYS  X/W 


0.200  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOW 


0. 

602. 

968, 
1  120. 
1  169, 
1  184, 
1  192, 
1201, 
1211, 
1220, 
1224, 


000 
520 
304 
361 
126 
414 
669 
194 
012 
169 
31  1 


T  = 


49.  DAYS  X/W 


0.300  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOW 


0. 
555, 
884, 
1011 
1045 
1052. 
1056 
1064 
1075 
1087, 
1093 


000 
691 
480 
757 
370 
045 
21  1 
053 
741 
899 
667 


49.  DAYS  X/W 


0.400  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOW 


0, 
346, 
585, 
709, 
766, 
793, 
809, 
822, 
833, 
841 
844, 


000 
340 
257 
914 
264 
195 
690 
583 
496 
602 
765 


49.  DAYS  X/W 


90 


0.500  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLl 


0.000 
235. 913 
401 .698 
489. 368 
528.088 
545.007 
554.048 
560. 212 
564.  747 
567.677 
568.  71  1 


49.  DAYS  X/W 


0.700  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLO 


0, 
86, 
152. 
190, 
208, 
215, 
215, 
213. 
209. 
206, 
205, 


000 
603 
094 
724 
935 
348 
791 
319 
699 
487 
181 


49.  DAYS  X/W 


0.900  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLO 


0 
40, 
69. 
84. 
89 
89. 
87, 
84, 
82 


000 
089 
237 
641 
974 
981 
780 
901 
121 


80.055 
79.277 


49.     DAYS    X/W 


-  91    - 
1.500     PORE     PRESSURES     IN     PSF    DUE    TO    VERT    +    H0R1     FLOW 


0.000 
-1  .436 
-2.  565 
-3. 302 
-3.  748 
•4.039 
•4.265 
■4.463 
•4.633 
•4.  755 
•4.800 


56.  DAYS  X/W 


0.000  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOW 


0, 
594, 
975. 
1  146, 
1205, 
1223, 
1229. 
1233. 
1236, 
1238, 


000 
797 
207 
130 
399 
418 
753 
346 
194 
329 


1239.  177 


56.  DAYS  X/W 


0.100  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FLOW 


0. 

,000 

588. 

056 

965. 

,000 

1135. 

251 

1  195. 

,173 

1214. 

,436 

1222. 

,473 

1228. 

,264 

1233. 

,697 

1238. 

,223 

1240. 

,  133 

-  92 


56.  DAYS  X/W 


0.200  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FL 


0, 
574, 
941. 
1  106, 
1  163, 
1  182, 
1191, 
1200, 
1209, 
1218, 
1222, 


000 
192 
276 
020 
418 
176 
437 
108 
678 
309 
076 


56.  DAYS  X/W 


0.300  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HORI  FL 


0, 
528, 
857, 
997, 
1038. 
1048. 
1053. 
1061 
1072 
1083 
1089 


000 
166 
962 
125 
742 
545 
544 
405 
650 
974 
156 


Reached 

1 

0 


end  of  file 


SI.S».2«".. 


93 


THE  FOLLOWING  INFORMATION  IS  OUT  PUT 

UAVE(X(1))  ,  UAVE(X(2) ) , 

■=  AVER  DEGREES  OF  CONSOL.  WITH  RESPECT 
SETC(X(1)),SETC(X(2)) 

-  CONSOL.  SETTLEMENTS 

SETI(X(1)),SETI(X(2)), 

■=  IMMMEDIATE  SETTLEMENTS 
SETT(X(1)),SETT(X(2)) 

-  CONSOLI.  +  IMMMEDIATE  SETTLEMENTS 
LAST  TWO  LINE  ARE  ONLY  OUT  PUT 

IF  SOIL  IS  PARTIALLY  SATURATED  (B.NE.l 
THE  POINTS  X(I)  IN  FEET  ARE  AS  FOLLOWS 


TP  REF.  LOAD 


D.000  10.000  20.000  30.000  40.000  50.000  70.000  90.000150.000160.000 


T  = 
DAYS 


60. 

IS  THE 


TIME  OF  LOAD  APPLICATION 


T  = 


60.  DAYS 


0.000 
0.000 
0.  141 
0.  141 


0.000 
0.  000 
0.  14  1 
0.  141 


0.000 
0.000 
0.  138 
0.  138 


0.000 
0.000 
0.  124 
0.  124 


0.000 
0.000 
0.  107 
0.  107 


0.000 
0.000 
0.059 
0.059 


0.000 
0.000 
0.030 
0.030 


0.000 
0.000 
0.003 
0.003 


0.000 
0.000 
0.002 
0.002 


67.  DAYS 


0.153  0.153  0.159  0.090  0.087  0.081  0.156  -0.545  -0.477 

0.997  0.996  1.010  0.746  0.629  0.286  0.196  0.000  0.000 

0.141  0.141  0.138  0.124  0.107  0.059  0.030  0.003  0.002 

1.138  1.137  1.147  0.870  0.736  0.345  0.226  0.003  0.002 


T  = 


74.  DAYS 


1.18  5 
204 
141 
345 


0.183  0.185  0.196  0.110  0.108  0.098  0.199  -1.572  -0.383 

1.197  1.201  1.236  0.919  0.785  0.370  0.254  0.000  0.002 

0.141  0.141  0.138  0.124  0.107  0.059  0.030  0.003  0.002 

1.338  1.342  1.373  1.043  0.892  0.429  0.284  0.003  0.004 


►  .321  0.319 

.866  1.857 

.141  0. 141 

.007  1.998 


30.  DAYS 

0.329 

0.361 

0.  199 

0.  198 

0.  168 

0.  372 

2.614 

-0.956 

1.890 

1.983 

1.459 

1.251 

0.627 

0.430 

0.050 

0.002 

0.  141 

0.  138 

0.  124 

0.  107 

0.059 

0.030 

0.003 

0.002 

2.031 

2.  121 

1.583 

1.  359 

0.686 

0.460 

0.053 

0.004 

-  g*  - 

AVE  DEGREE  OF  CONSOL.  AND  SETTLEMENT 

CURVES  FOR  POINT  X-       0.00FEET  FROM  CENTER  LINE 

INTERVAL  BETWEEN  2  GRID  LINES. EQ. 10% 

ABSCISSA  NUMBERS  GIVE  THE  TIME  IN  WKS 

THE  TOTAL  SETTL  DUE  TO  REFERENCE  LOAD  IS-  0.390E+01FT 

U  -CUREV-  AVE.  DEGREE  OF  CONSOL. 

RELATIVE  TO  THE  PORE  PRESS  DUE  TO  REF  LOAD 

C  -CURVE-CONSOL.  SETTL.  IN  %  OF  REF.  SETTLEMENT 

0  -CURVE-IMMEDIATE  SETTLEMENTS  IN  %  OF 

THE  REFERENCE  SETTLEMENTS 

T  -CURVE-TOTAL  SETTLEMENTS  IN  %  OF 

THE  REFERENCE  SETTLEMENT 


Fig.  4.3(a) 


0.0   0.1   0.2   0.3   0.4   0.5   0.6   0.7   0.8  0.9   1.0   1.1   1.2   1.3 


1  .  4 


8C*T* 


9* 

10* 
1  1* 
12* 
1  3* 
14* 
15* 
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*i****x****i****i****i****i****i****i****i****i****i****i****i****i 


AVE  DEGREE  OF  CONSOL.  AND  SETTLEMENT 

CURVES  FOR  POINT  X-     10.00FEET  FROM  CENTER  LINE 

INTERVAL  BETWEEN  2  GRID  LINES. EQ. 10% 

ABSCISSA  NUMBERS  GIVE  THE  TIME  IN  WKS 

THE  TOTAL  SETTL  DUE  TO  REFERENCE  LOAD  IS=  0.389E+01FT 

U  -CUREV-  AVE.  DEGREE  OF  CONSOL. 

RELATIVE  TO  THE  PORE  PRESS  DUE  TO  REF  LOAD 

C  -CURVE-CONSOL.  SETTL.  IN  %  OF  REF.  SETTLEMENT 

0  -CURVE-IMMEDIATE  SETTLEMENTS  IN  %  OF 

THE  REFERENCE  SETTLEMENTS 

T  -CURVE-TOTAL  SETTLEMENTS  IN  %  OF 

THE  REFERENCE  SETTLEMENT 


-  9b  - 
•ig.  4.3(b) 
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0  U         C  T 

0  U         CT 

0  U        C  T 
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****x****i****i****i****i****i****i****i****i****i****i****i****i*** 

ave  degree  of  consol.  and  settlement 

curves  for  point  x=    30.00feet  from  center  line 

interval  between  2  grid  lines. eq. 10% 

abscissa  numbers  give  the  time  in  wks 

the  total  settl  due  to  reference  load  is-  0.38ae+01ft 

u  -curev=  ave.  degree  of  consol. 

relative  to  the  pore  press  due  to  ref  load 

c  -curve=consol.  settl.  in  %  of  ref.  settlement 

0  -curve=immediate  settlements  in  %  of 

the  reference  settlements 

t  -curve=total  settlements  in  %   of 

the  reference  settlement 


*  i  *  *  *  *  * 
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* 
* 
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* 
* 
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A. 3(c) 
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21* 
22* 
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24* 
25* 
26* 
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1 


J****}*! 


I****I****I****I****I****J****J 


AVE  DEGREE  OF  CONSOL.  AND  SETTLEMENT 

CURVES  FOR  POINT  X-=      AO.OOFEET  FROM  CENTER  LINE 

INTERVAL  BETWEEN  2  GRID  LINES. EQ. 10% 

ABSCISSA  NUMBERS  GIVE  THE  TIME  IN  WKS 

THE  TOTAL  SETTL  DUE  TO  REFERENCE  LOAD  IS*  0.372E+01FT 

U  -CUREV=  AVE.  DEGREE  OF  CONSOL. 

RELATIVE  TO  THE  PORE  PRESS  DUE  TO  REF  LOAD 

C  -CURVE=CONSOL.  SETTL.  IN  %  OF  REF.  SETTLEMENT 

0  -CURVE=IMMEDIATE  SETTLEMENTS  IN  %  OF 

THE  REFERENCE  SETTLEMENTS 

T  -CURVE=TOTAL  SETTLEMENTS  IN  %  OF 

THE  REFERENCE  SETTLEMENT 


Fig.  A. 3(d) 
0   0.0   0.1   0.2   0.3   0.4   0.5   0.6   0.7   0, 


0.9   1.0   1.1   1.2   1.3   1.4 
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*I****I****I****1****j****I****j****j****I****j****I****I****I****I 


AVE  DEGREE  OF  CONSOL.  AND  SETTLEMENT 

CURVES  FOR  POINT  X=      70.00FEET  FROM  CENTER  LINE 

INTERVAL  BETWEEN  2  GRID  LINES. EQ. 10% 

ABSCISSA  NUMBERS  GIVE  THE  TIME  IN  WKS 

THE  TOTAL  SETTL  DUE  TO  REFERENCE  LOAD  IS=  0.118E+01FT 

U  -CUREV-  AVE.  DEGREE  OF  CONSOL. 

RELATIVE  TO  THE  PORE  PRESS  DUE  TO  REF  LOAD 

C  -CURVE=CONSOL.  SETTL.  IN  %  OF  REF.  SETTLEMENT 


0  -CURVE=IMMEDIATE  SETTLEMENTS 
THE  REFERENCE  SETTLEMENTS 
T  -CURVE-TOTAL  SETTLEMENTS  IN  X 
THE  REFERENCE  SETTLEMENT 
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IN  7.    OF 

OF 


Fig.  A. 3(e) 
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AVE  DEGREE  OF  CONSOL.  AND  SETTLEMENT 

CURVES  FOR  POINT  X=      90.00FEET  FROM  CENTER  LINE 

INTERVAL  BETWEEN  2  GRID  LINES. EQ. 10% 

ABSCISSA  NUMBERS  GIVE  THE  TIME  IN  WKS 

THE  TOTAL  SETTL  DUE  TO  REFERENCE  LOAD  IS=  0.539E+00FT 

U  -CUREV=  AVE.  DEGREE  OF  CONSOL. 

RELATIVE  TO  THE  PORE  PRESS  DUE  TO  REF  LOAD 

C  -CURVE=CONSOL.  SETTL.  IN  %  OF  REF.  SETTLEMENT 

0  -CURVE=IMMEDIATE  SETTLEMENTS  IN  %     OF 

THE  REFERENCE  SETTLEMENTS 

T  -CURVE=TOTAL  SETTLEMENTS  IN  %  OF 

THE  REFERENCE  SETTLEMENT 


g.  A. 3(f) 
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11  , 
2 

1  ,9 

60 

31, 

.0, 
3,5 

26. 

2,4 

.76 

0,1 

2.0 

.  75 

0., 

104 

208 

286 

364 

442 

520 

598 

676 

754 

858 

.02 

1  1 

0.0 

2.6 

5.  2 

7.8 

10. 

1  3. 

1  5. 

18. 

20. 

23. 

26. 

5,6 

0.0 

35. 

78. 

81. 

93. 


30,31 ,0, 1.0,  1.00,0.0 


.  3  ,.65,1.3,3.0 

,4,3 

0,125.,  1000.,  100. 0,3.0,. 577 

9,.  5,1. 318,  1.867 , 1.867 ,.  107 

,0 

5, .5 

,.2,.0 

1000. 

.  ,  1000. 

.  ,  1000. 

.  ,  1000. 

. ,864. 

. ,680. 

. ,520. 

. ,598. 

. ,676. 

. ,754. 

. ,858. 

,  .03 


280. 

220. 

150. 

150. 

,  150 

,  150 

,  150 

,  150 

,210, 

,360, 

,310 


1 
1 

15 
15 
.  15 
.  15 
.  15 
.  15 
.  15 
.  1 
.  1 


,  10.2 
0,10.2 
2,3.0 
2,3.0 
2  ,0.0 


Table   4.3     Data  Card   for  Sample    Problem  2      (Cont'd  on  nrxr    page! 


.03   - 


3,1,0,1 

1.15, 0.00, 0.8, 360.  ,4.0,1.0,64.0,40.  ,0.0 

5,6 

5,6,0 

0.0,10.2 

35.0,  10.2 


78 
81, 


2,3 
2,3, 


93.2,0, 
0 

6,10,0 
0.0,15, 
22.  ,  15. 


,10 
2,3 
2,3 


35 

78, 

81, 

93.2,0.0 

1 . 15 , 1 . 2 ,0.8,0.  ,57. 5  ,40.  ,0. 

5.6,0 

0.0,10.2 

35.0,10.2 

78. 2,3.0 

8  1.2,3.0 

93.2  ,0.0 

1.25,0.  ,0.8  ,. 0,64.  ,40.  ,0. 
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********************************** 

*  * 

*  CONSOLIDATION  PROBLEM       * 

*  * 

*  STEP  LOADING  &  SURCHARGE    * 
********************************** 


Abridged  output  for  Sample  Problem  2 


THE  PORE  WATER  PRESSURES  ARE  COMPUTED  AT 


YE/H 
YE/H 
YE/H 


0 
0, 
1  . 


000 
500 
000 


100 
600 


0.  200 

0.  700 


300 
800 


0 

0 


400 
900 


XT/W 

XT/W 

XT/W 

THE  PORE 


0.020 

0.475 

1.099 

PRESSURES 


ARE 


0. 150      0. 280  0. 309  0.  372 

0.578       0.641  0.675  0.851 

1.275      1.414  2.150  2.886 
INTERPOLATED  AT 


XE/W  = 

XE/W  = 
XE/W  = 
XE/W  = 
XE/W  = 
XE/W> 
XE/W  = 


0, 
0, 

1 , 
1 , 

2, 
2, 
3, 


000 
500 
000 
500 
000 
500 
000 


0 
0. 

1 
1, 

2. 

2 


100 
600 
100 
600 
100 
600 


0, 
0, 
1 

1  , 

2 

2, 


200 
700 
200 
700 
200 
700 


o. 

0, 

1 , 
1 

2. 
2 


300 
800 
300 
800 
300 
800 


0 

0 

1 
1 

2 
2 


400 
900 
400 
900 
400 
900 


ASSUMING  COLLOCATION  POLYNOMIALS  OF  DEGREE 

2  BETWEEN  THE  LIMITS  0.000  AND  0.300 
4  BETWEEN  THE  LIMITS  0.300  AND  0.650 

3  BETWEEN  THE  LIMITS  0.650  AND  1.300 
2  BETWEEN  THE  LIMITS  1.300  AND  3.000 

THE  SUBSOIL  IS  DESCRIBED  BY  THE  FOLLOWINC 
PARAMETERS  WHICH  ARE  GIVEN  FOR  THE  UPPER  LAYER 
IN  CASE  OF  STRATIFICATION 

TOTAL  THICKNESS   H-   26.000   FEET 
reference  for  X-COORD  W  -   100.000  FEET 

LAYER  INTERFACE  IS      7.800  FT  BELOW  SURFACE 
LOWER/UPPER  PERMEABILITY,  RK-      0.769 
LOWER/UPPER  COEF. OF. CONSOLIDATION , RC-      0.500 
LOWER/UPPER  INITIAL  VOID  RATIO,  REO-      1.318 
LOWER/UPPER  COMPRESSION  INDEX, RCC-     1.867 
LOWER  RECOMPRESSION/UPPER  RECOMPRESSION- 
-INDEX  ROCL-     0. 107 


SKEMPTON  PORE 
A-   0.50  AND 


PRESSURE 
B-   1.00 


COEFFICIENTS  ARE 


INITIAL  VOID  RATIO 


2.050 


THE  COMPRESSION  INDEX  IS  -      0.7500E+00 
RECOMPRESSION  INDEX/CC    ROC-      0.200 


105 


INITIAL  EFFECTIVE  P 

STRESSES  PC  AS  USED 

Y  IN  FT       P  IN  PSF 

0.000  104. 

2.600  104. 

5.200  208. 

7.800  286. 

10.400  364. 

13.000  442. 

15.600  520. 

18.200  598. 

20.800  676. 

23.400  754. 

26.000  858. 

NOTE  -P(l)  AND  PC(1) 

as  compared  to  input 


AND  PRECOMPRESSION 
IN  THE  COMPUTATIONS 
PC  IN  PSF 

1000.00 

1000 

1000 

1000 

864 

680 

520 

598 

676 

754 

858 


00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

MAY  HAVE  BEEN  CHANGED 
values  to  avoid  over  flow 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


COEFF  CONSOL-VERT  FLOW  IS  CV= 
COEF  OF  CONSOL-HORI-FLOW  IS  CH' 


0. 2000E-01FT**2/DAY 
0. 3000E-01FT**2/DAY 


THE  DRAINAGE  CONDITIONS  ARE 

FREE  DRAINAGE  AT  THE  BOTTOM 

THE  SHEAR  STRENGTH  CHARACTERISTICS  OF 

THE  SUB  SOIL  AS  USED  IN  THE  STABILITY  ANALYSIS  ARE 

DEPTH  IN  FEET  COHESION  IN  PSF       P-RATIO 

0.  000  280.000  0.  100 

2.600  220.000  0.100 

5.200  150.000  0.  150 

7.800  150.000  0.150 

10.400  150.000  0.150 

13.000  150.000  0.150 

15. 600  150.000  0.  1  50 

18. 200  150.000  0.150 

20.800  210.000  0.150 

23.400  360.000  0.  100 

26.000  310.000  0.  100 


REFERENCE  LOAD 
************** 

SKEMPTON  PORE  PRESSURE  COEFFICIENTS  ARE 
A»   0.50  AND  B-   1.00 


THE  LOAD  CHARACTERISTICS  ARE  GIVEN  BY 
THE  UNIT  WEIGHT  GLOAD-    125.00   PCF 
THE  COHESION  ,  CLOAD-    1000.00  PSF 
THICKNESS  OF  THE  DRAINAGE  BLANKET  YWM- 
THE  TANGENT  OF  THE  ANCLE  OF  INTERNAL 

FRICTION  TGPHI-    0.5770 
MINP-     5  COOR  POINTS  XINP/YINP 


3.00  FT 


THE 
OF 


0.00  FEET  10. 

35.00  FEET  10. 

78.20  FEET  3. 

81.20  FEET  3. 

93.20  FEET  0. 
ACTUAL  LOAD  IS  APPROXIMATED  BY 

EQ  INTENSITY  WHICH  EXTEND  FROM 


20  FEET 
20  FEET 
00  FEET 
00  FEET 
00  FEET 

6  LOADS 
X-0  TO  ALPHA(I) 
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IF  ALPHA(I)  IS  NEGATIVE,  THIS  LOAD  IS  SUBTRACTED 


ALPHA( 
ALPHA( 
ALPHA( 
ALPHA( 
ALPHA( 
ALPHA( 


1) 
2) 
3) 
4) 
5) 
6) 


89, 
82, 
70, 
60, 
50, 
40, 


800 
200 
700 
500 
300 
100 


FEET 
FEET 
FEET 
FEET 
FEET 
FEET 


THE  AVERAGE  PORE  PRESSURES,  UAVER(I) 
THE  CONSOLIDATION  SETTLEMENTS,  SETRC(I)  AND 
THE  TOTAL  SETTLEMENTS , S ETRT ( I ), AT  XT(I)  ARE 
XT  FEET     UAVER  (PSF)    SETRC  FT.    SETRT  FT 


2.01 

1221.99 

3.401 

3.401 

15.00 

1220.05 

3.  396 

3.  396 

27.  99 

1199. 55 

3.  347 

3.  347 

30.86 

1188.66 

3.  321 

3.321 

37.21 

1146.45 

3.218 

3.218 

47.  50 

1001 .05 

2.855 

2.855 

57.79 

831.05 

2.  403 

2.403 

64.  14 

708.  77 

2.094 

2.094 

67.47 

658. 25 

1.  960 

1.960 

85.06 

361 .09 

1.175 

1.175 

109.94 

118.93 

0.  421 

0.421 

127.53 

71.97 

0.  262 

0.  262 

141.39 

49.  53 

0.  187 

0.187 

215.00 

6.15 

0.025 

0.025 

288.61 

0.  76 

0.  003 

0.003 

THE  NUMBER  OF  LIFTS  IS  NL= 


THE  AVAILABLE  CONSTRUCTION  TIME  IS  TA= 


360.  DAYS.  TA  IS 
PARAMETERS  USED  IN 
DMAX=      4.000 
NARC-      5NRAD- 
DMAX,  DMIN  ARE  THE 
USED  IN  THE  SEARCH 
NARC-ONE-  HALF  THE 
NRAD-NUMBEROF  RADII 
OF  ARCS 

THE  FACTOR  OF  SAFETY  AT  TIME  TO- 
DAYS FOR  LIFT    1  IS  FS-   1.221 
AS  COMPARED  TO  THE  REQU.  FSI-   1 
FS  HAS  BEEN  OBTAINED  FOR  THE  ARC 
X-    66.00  Y-     41.00  RADIUS- 


NOT  NEEDED  IF  NL-1 

THE  STABILITY  ANALYSIS 

DMIN-      1.000 

6 

MAX  AND  MIN  STEP  SIZES 

PROCEDURE 

SUB  ARCS 
EACH  TRIAL 


NUMBER  OF 
USED  FOR 


0. 

150 
WITH 
61.80 


CENTER 


IN  FT 


LOAD  NO    1  APPLIED  AT  TL-      O.DAYS 
******************************************* 

SKEMPTON  PORE  PRESSURE  COEFFICIENTS  ARE 
A-   0.50  AND  B-   I . 00 


THE  LOAD  CHARACTERISTICS  ARE  GIVEN  BY 
THE  UNIT  WEIGHT  GLOAD-    125.00   PCF 
THE  COHESION  ,  CLOAD-     1000.00  PSF 
THICKNESS  OF  THE  DRAINACE  BLANKET  YWM- 
THE  TANCENT  OF  THE  ANGLE  OF  INTERNAL 


3.00  FT 
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FRICTION  TGPHI-    0.5770 
MINP  =      5  COOR  POINTS  XINP/YINP 


0. 
35, 
78. 
81. 
93 


00 
00 
20 
20 
20 


FEET 
FEET 
FEET 
FEET 
FEET 


10, 

10, 
3. 
3. 

0. 


20 
20 
00 
00 
00 


FEET 
FEET 
FEET 
FEET 
FEET 


THE  REQUIRED  SAFETY  FACTOR  IS  FSI-   1.150 
THE  SPECIFIED  PORTION  OF  SETLEMENT  IS 
EQUAL  TO     0.000 

IF  95%  OF  THE  AVE  PORE  PRESSURE 
AT  THE  TIME  OF  APPLICATION  OF  THIS  LOAD 
HAVE  DISSIPATED  AT  0 . 8000  *  1 5 PO I  NTS  XT 
THIS  LIFT  IS  ASSUMED  TO  BE  THE  LAST  ONE 

THE  FACTOR  OF  SAFETY  AT  TIME  T=       0. 
DAYS  FOR  LIFT   1WAS  .GE.FS=   1.221 
AS  COMPARED  TO  THE  REQU.  FSI-   1.150 


THE  FACTOR  OF  SAFETY  AT  TIME  T= 
DAYS  FOR  LIFT    2  IS  FS=   1.036 
AS  COMPARED  TO  THE  REQU.  FSI-   1. 
FS  HAS  BEEN  OBTAINED  FOR  THE  ARC 
X=    57.50  Y  =     A3. 00  RADIUS= 
THE  FACTOR  OF  SAFETY  AT  TIME  T= 
DAYS  FOR  LIFT    2  IS  FS=   1.036 
AS  COMPARED  TO  THE  REQU.  FSI-   1. 
FS  HAS  BEEN  OBTAINED  FOR  THE  ARC 
X=    57.50  Y=     43.00  RADIUS'* 
THE  FACTOR  OF  SAFETY  AT  TIME  T- 
DAYS  FOR  LIFT    2  IS  FS-   1.037 
AS  COMPARED  TO  THE  REQU.  FSI-   1. 
FS  HAS  BEEN  OBTAINED  FOR  THE  ARC 
X=    57.50  Y-     43.00  RADIUS- 
THE  FACTOR  OF  SAFETY  AT  TIME  T- 
DAYS  FOR  LIFT    2  IS  FS-   1.037 
AS  COMPARED  TO  THE  REQU.  FSI=   1. 
FS  HAS  BEEN  OBTAINED  FOR  THE  ARC 
X=    57.50  Y-     43.00  RADIUS- 
THE  FACTOR  OF  SAFETY  AT  TIME  T- 
DAYS  FOR  LIFT    2  IS  FS-   1.038 
AS  COMPARED  TO  THE  REQU.  FSI-   1. 
FS  HAS  BEEN  OBTAINED  FOR  THE  ARC 
X-    57.50  Y-     43.00  RADIUS- 
THE  FACTOR  OF  SAFETY  AT  TIME  T- 
DAYS  FOR  LIFT    2  IS  FS-   1.038 
AS  COMPARED  TO  THE  REQU.  FSI-   1. 
FS  HAS  BEEN  OBTAINED  FOR  THE  ARC 
X-    57.50  Y-     43.00  RADIUS- 
THE  FACTOR  OF  SAFETY  AT  TIME  T- 
DAYS  FOR  LIFT    2  IS  FS-   1.039 
AS  COMPARED  TO  THE  REQU.  FSI-   I. 
FS  HAS  BEEN  OBTAINED  FOR  THE  ARC 
X-    57.50  Y-     43.00  RADIUS- 
THE  FACTOR  OF  SAFETY  AT  TIME  T- 


7. 

150 
WITH 
62.97  IN  FT 
14. 

150 
WITH 
62.97  IN  FT 
21. 

150 
WITH 
62.97  IN  FT 
28. 

150 
WITH 
62.97  IN  FT 
35. 

150 
WITH 
62.97  IN  FT 
42. 

150 
WITH 
62.97  IN  FT 
49. 

150 
WITH 
62.97  IN  FT 
56. 
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DAYS  FOR  LIFT    2  IS  FS-   1.039 

AS  COMPARED  TO  THE  REQU.  FSI-   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X-    57.50  Y-     43.00  RADIUS-     62.97  IN  FT 

THE  FACTOR  OF  SAFETY  AT  TIME  T-     70. 

DAYS  FOR  LIFT    2  IS  FS-   1.040 

AS  COMPARED  TO  THE  REQU.  FSI-   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X-    57.50  Y-     43.00  RADIUS-     62.97  IN  FT 

THE  FACTOR  OF  SAFETY  AT  TIME  T-     84. 

DAYS  FOR  LIFT    2  IS  FS-   1.041 

AS  COMPARED  TO  THE  REQU.  FSI-   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X-    57.50  Y-     43.00  RADIUS-     62.97  IN  FT 

THE  FACTOR  OF  SAFETY  AT  TIME  T-     98. 

DAYS  FOR  LIFT    2  IS  FS-   1.042 

AS  COMPARED  TO  THE  REQU.  FSI-   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X-    57.50  Y-     43.00  RADIUS-     62.97  IN  FT 

THE  FACTOR  OF  SAFETY  AT  TIME  T-    112. 

DAYS  FOR  LIFT    2  IS  FS-   1.043 

AS  COMPARED  TO  THE  REQU.  FSI-   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X=    57.50  Y-     43.00  RADIUS-     62.97  IN  FT 

THE  FACTOR  OF  SAFETY  AT  TIME  T-    126. 

DAYS  FOR  LIFT    2  IS  FS-   1.044 

AS  COMPARED  TO  THE  REQU.  FSI=   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X=    57.50  Y-     44.00  RADIUS-     63.42  IN  FT 

THE  FACTOR  OF  SAFETY  AT  TIME  T=»    140. 

DAYS  FOR  LIFT    2  IS  FS-   1.045 

AS  COMPARED  TO  THE  REQU.  FSI-   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X-    57.50  Y-     44.00  RADIUS-     63.42  IN  FT 

THE  FACTOR  OF  SAFETY  AT  TIME  T=    154. 

DAYS  FOR  LIFT    2  IS  FS-   1.046 

AS  COMPARED  TO  THE  REQU.  FSI-   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X=    57.50  Y-     44.00  RADIUS-     63.42  IN  FT 

THE  FACTOR  OF  SAFETY  AT  TIME  T-     168. 

DAYS  FOR  LIFT    2  IS  FS=   1.047 

AS  COMPARED  TO  THE  REQU.  FSI-   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X-    57.50  Y-     44.00  RADIUS-     63.42  IN  FT 

THE  FACTOR  OF  SAFETY  AT  TIME  T-    196. 

DAYS  FOR  LIFT    2  IS  FS-   1.048 

AS  COMPARED  TO  THE  REQU.  FSI-   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X-    57.50  Y-     44.00  RADIUS-     63.42  IN  FT 

THE  FACTOR  OF  SAFETY  AT  TIME  T-    224. 

DAYS  FOR  LIFT    2  IS  FS-   1.050 

AS  COMPARED  TO  THE  REQU.  FSI-   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X-    57.50  Y-     44.00  RADIUS-     63.42  IN  FT 

THE  FACTOR  OF  SAFETY  AT  TIME  T-    252. 

DAYS  FOR  LIFT    2  IS  FS-   1.052 

AS  COMPARED  TO  THE  REQU.  FSI-   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X-    57.50  Y-     44.00  RADIUS-     63.42  IN  FT 

THE  FACTOR  OF  SAFETY  AT  TIME  T-    280. 
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DAYS  FOR  LIFT    2  IS  FS-   1.054 

AS  COMPARED  TO  THE  REQU.  FSI-   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X-    57.50  Y-     44.00  RADIUS-     63.42  IN  FT 

THE  FACTOR  OF  SAFETY  AT  TIME  T-    308. 

DAYS  FOR  LIFT    2  IS  FS-   1.055 

AS  COMPARED  TO  THE  REQU.  FSI-   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X-    57.50  Y-     44.00  RADIUS-     63.42  IN  FT 

THE  FACTOR  OF  SAFETY  AT  TIME  T-    336. 

DAYS  FOR  LIFT    2  IS  FS-   1.057 

AS  COMPARED  TO  THE  REQU.  FSI-   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X-    57.50  Y-     44.00  RADIUS-     63.42  IN  FT 

THE  FACTOR  OF  SAFETY  AT  TIME  T-    364. 

DAYS  FOR  LIFT    2  IS  FS-   1.059 

AS  COMPARED  TO  THE  REQU.  FSI-   1.150 

FS  HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH 

X=    57.50  Y-     44.00  RADIUS-     63.42  IN  FT 


EITHER  THE  FACTOR  OF  SAFETY,  FS=   1.059 
AND/OR  THE  SETTLEMENT,  SETC(l)-   0.751FEET 
ARE  LESS  THAN  SPECIFIED  AT  TIME  T=    364. DAYS 
WHICH  IS  GREATER  THAN  TA-    360. DAYS 
***  THIS  LIFT  NO     1  IS,  THEREFORE 
CONSIDERED  TO  BE  THE  LAST  ONE*** 


THE  CONSOL.  PROCESS 
******************** 


THE  FOLLOWING  INFORMATION  IS  OUT  PUT 

UAVE(X(1)),UAVE(X(2)) , 

=  AVER  DEGREES  OF  CONSOL.  WITH  RESPECT 

SETC(X(1)),SETC(X(2)), 

=  CONSOL.  SETTLEMENTS 

SETKX(l))  ,SETI(X(2)) 

-  IMMMEDIATE  SETTLEMENTS 

SETT (X(l)), SETT (X(2)) , 

=  CONSOLI.  +  IMMMEDIATE  SETTLEMENTS 
LAST  TWO  LINE  ARE  ONLY  OUT  PUT 
IF  SOIL  IS  PARTIALLY  SATURATED  (B.NE.l. 
THE  POINTS  X(I)  IN  FEET  ARE  AS  FOLLOWS 


TP  REF.  LOAD 


0.000  80.000 


T-      0. 
DAYS  IS  THE  TIME  OF  LOAD  APPLICATION 


T- 


0.  DAYS 


no  - 


0.000 

0.000 

0.000 

0.  000 

T  = 

7. 

DAYS 

0.087 

0.  072 

0.  361 

0.  154 

T  = 

14. 

DAYS 

0.09  1 

0.075 

0.37  7 

0.  160 

T  = 


21.     DAYS 


0.095 
0.  392 


0.  078 
0.167 


0.098       0.08  1 
0.405       0.172 


28.  DAYS 


T  = 


35.  DAYS 


0.102   0. 084 
0.418   0.178 


T  = 


42.  DAYS 


0.  106 
0.430 


087 
183 


0. 109   0.090 
0.441   0. 188 


49.  DAYS 


T- 


56.  DAYS 


0.112   0.092 
0.452   0.193 


T-     70. 

DAYS 

1  19 

0.098 

472 

0.  202 

T-     84. 

DAYS 

125 

0.  103 

490 

0.  210 

T-     98. 

DAYS 

131 

0.  108 

508 

0.  219 

T=    112. 

DAYS 

137 

0.112 

525 

0.  226 

T-    126. 

DAYS 

143 

0.117 

541 

0.  234 

T=    140. 

DAYS 

.48 

0.121 

)57 

0.  241 

T=    154. 

DAYS 

53 

0.  125 

71 

0.  248 

168.  DAYS 


0.  129 

0.  254 


196.  DAYS 


168   0.137 


12  - 


0.6  13   0.267 


224.  DAYS 


0.  177 
0.639 


0.  145 
0.278 


T- 


252.  DAYS 


0.  186 
0.663 


0.  152 

0.  289 


280.  DAYS 


0.  194 
0.686 


0.  158 
0.  300 


308.  DAYS 


0.202 
0.  709 


0.  165 

0.  310 


336.  DAYS 


0.210 
0.  730 


171 
319 


364.  DAYS 


0.217 
0.  751 


0.177 
0.  328 


392.  DAYS 


0.  224 
0.771 


0.  182 
0.  337 


448.  DAYS 


0.237   0.  193 
0.808   0. 354 


504.  DAYS 


-  113 


0.  203 
0.  370 


T- 


560.  DAYS 


0.213 
0.  385 


616.  DAYS 


0.222 
0.  399 


T  = 


672.  DAYS 


0.231 
0.413 


728.  DAYS 


0.  239 

0.426 

AVE  DEGREE  OF  CONSOL.  AND  SETTLEMENT 
CURVES  FOR  POINT  X=       0.00FEET  FROM 
INTERVAL  BETWEEN  2  GRID  L  I  NE  S  .  EQ  .  1  0  7. 
ABSCISSA  NUMBERS  CIVE  THE  TIME  IN  WKS 
THE  TOTAL  SETTL  DUE  TO  REFERENCE  LOAD 
U  -CUREV-  AVE.  DEGREE  OF  CONSOL. 
RELATIVE  TO  THE  PORE  PRESS  DUE  TO  REF 
C  -CURVE=CONSOL.  SETTL.  IN  7.     OF  REF. 


CENTER  LINE 


IS-  0.340E+01FT 

LOAD 
SETTLEMENT 


g.  4.7(a) 


0.1   0.2   0.3   0.4   0.5   0.6   0.7   0.8  0.9   1.0   1.1   1.2   1.3   1.4   1.5 


**M****I****I****I***M****I****I****I****I****I****I****I****I****I***** 
UC  * 

uc  * 

uc  * 

uc  * 

uc  * 

uc  * 

uc  * 

uc  * 

* 

uc  * 
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1 1* 

12* 

1  3* 
14* 
15* 
16* 
17* 
18* 
19* 
20* 
21* 
22* 
23* 
24* 
25* 
26* 
27* 
28* 

2  9  * 
30* 
31* 
32* 
33* 
34* 
35* 
36* 
37* 
38* 
39* 
40* 
4  1* 
42* 
43* 
44* 
45* 
46* 

4  7* 
48* 
49* 
50* 

5  1* 
52* 
53* 
54* 
55* 
56* 
57* 
58* 
59* 

5  0***** 


uc 
c 

uc 
uc 
uc 

c 

uc 

uc 


uc 


uc 


1****i****i****i****i****i****i****i****i****i****i****i****i****x** 


AVE  DEGREE  OF  CONSOL.  AND  SETTLEMENT 
CURVES  FOR  POINT  X-     80.00FEET  FROM 
INTERVAL  BETWEEN  2  GRID  LINES. EQ.IOX 
ABSCISSA  NUMBERS  CIVE  THE  TIME  IN  WKS 
THE  TOTAL  SETTL  DUE  TO  REFERENCE  LOAD 
U  -CUREV-  AVE.  DECREE  OF  CONSOL. 
RELATIVE  TO  THE  PORE  PRESS  DUE  TO  REF 
C  -CURVE-CONSOL.  SETTL.  IN  7.     OF  REF. 


CENTER  LINE 


IS-  0.  144E  +  01FT 


LOAD 
SETTLEMENT 


L15  - 


|.     4.7(b) 


3       0.1       0.2       0.3       0.4       0.5       0.6       0.7       0.8    0.9       1.0       1.1        1.2       1.3       1.4       1.5 


****I****I****I****I****I****I****I****I****I****I****I****I****I**** 

uc 
u  c 
u  c 
u  c 
u  c 
u  c 
u  c 
u  c 

u  c 

u  c 

u     c 

u  c 

u  c 

u  c 

u     c 

u     c 


u  c 


u     c 


u  c 


u  c 


u     c 


u  c 


u  c 


I  *  *  *  *  * 
* 

* 
* 
* 
* 
* 
* 
* 

* 

* 
* 
* 
* 
* 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
* 
* 
* 
* 
* 
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57* 
58* 
59* 
5o*****I****I****I****I****I****I****I****I****I****I****I****I****l****l** 
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APPENDIX    -    A 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 

c 
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PROGRAM  MSAND 
FORT1  and  FORT2  are  internal  files. 
INPUT  and  OUTPUT  files  must  be  specified  by  the  USER. 

**************************************************************** 


THIS  PROGRAM  OPTIMIZES  THE  RATE  AT  WHICH  A  SPECIFIC  HIGHWAY 
EMBANKMENT  CAN  BE  CONSTRUCTED  ON  SOFT  SUBSOIL.  THIS  PROBLEM 
INVOLVES  THE  COMPUTATION  OF  STRESSES  AND  PORE  PRESSURES  IN 


THE  SUBSOIL,  THE  DISSIPATION  OF 
CORRESPONDING  INCREASE  IN  SHEAR 
OF  THE  EMBANKMENT. 


THESE  PORE 
RESISTANCE 


PRESSURES,  THE 
AND  THE  STABILITY 


THE 

INDU 

THEO 

A  AN 

DIME 

THE 

WATE 

SOIL 

RESI 

PRES 
*  *  *  * 


EMBA 
CES 
RY  0 
D  B. 
NSIO 
EFFE 
R  PR 
WIL 
STAN 

SURE 
**** 

Cha 


NKME 
PORE 
F  EL 
THE 
NAL 
CT  0 
ESSU 
L  IN 
CE. 

S. 
*  **  * 


NT  LOAD  WHICH  IS  ASSUMED  TO  ACT  VERTICALLY, 

PRESSURES  IN  THE  SUBSOIL  WHICH  ARE  COMPUTED  USING 
ASTICITY  AND  SKEMPTON- PORE  PRESSURE  PARAMETERS 
SE  PORE  PRESSURES  DISSIPATE  ACCORDING  TO  THREE 
CONSOLIDATION  THEORY  WHICH  TAKES  INTO  ACCOUNT 
F  GAS  AND  VARIABLE  SOIL  PARAMETERS.  AS  THE  PORE 
RE  DISSIPATES  THE  EFFECTIVE  STRESSES  IN  THE  SUB- 
CREASE  GIVING  A  SIMULTANEOUS  INCREASE  IN  SHEARING 
SETTLEMENTS  ARE  COMPUTED  FROM  THE  DISSIPATED  PORE 


************************************************** 
racter*50  INPUTF ILE , OUTPUTF I LE 


REAL  KVO.KHO 

DIMENSION  AX (5)  ,JSP(  10)  ,MXE(4)  ,MXT(4)  ,MXS(4)  ,  OMECA(40)  ,  OMED(40) 

DIMENSION  PHI(20),PHID(20),R(5  10),SETC(20),SETI(20),SETT(20) 

DIMENSION  SETRC(20)  ,SETRI(20)  ,SETRT(20)  ,SPECS(10)  ,SPECU(10) 

DIMENSION  T(150) 

DIMENSION  TB(5O),TL(lO),UA(22O),UB(22O),UC(22O),UD(220),UAVE(20 

DIMENSION  UAVER(20),XE(51),XME(660)  ,XMT( 100),XINP(20),XRP(20) 

DIMENSION  YE(11),YINP(20),YRP(20),RSP(100),UAVED(20) 

DIMENSION  SETR(20),ROW(10O),KK(20),SYMB(4),XT(20),SV(ll) 

DIMENSION  SVM(12),P(11),PC(U)  ,PLOG(  1  1)  ,C0(  1  1) 

DIMENSION  CP(ll),SU(561),UAVEM(2O),UM(22O),UU(220),IDEN(10) 

DIMENSION  UE(40)  ,UF( 40) 


EQUIVALENCE 
EQUIVALENCE 


(UA(  1)  ,XME(  1  ) )  ,(UB(  1)  ,XME(22  1) ) 
(UC(1),XME(441)),(UD(1),XMT(1)) 


COMMON/  SAPOD/  IOUTP , W , HH , CLOAD , CLO AD , N ARC , NRAD 

COMMON/  SADI1/  LAY ER , I BCV , MH E , M , N , I  DC , N DR , I S UM , XET ( 4 1 ) 

COMMON/  SADI2/  F IMPV , RC , RK , C , RO , RE , TA , I S P , I VAR 

COMMON/  SACSE/  ROC , ROCL , S VM , P , PC , PLOG , PO , PCO , I AV , I K , I S AT , AAV , AA 

COMMON/  SACOl/  AVOC , KVO , KHO , EOPU S , PU , S KHM , SKVM , CCC  ,  NNN , I COE F 

COMMON/  SAC02/  PCV (  1  0 )  ,  CV  I  N ( 1 0 )  ,  PCH (  1  0 )  ,  CH  I  N( 1 0 )  ,  I CV  ,  KOUNT , HF 

COMMON/  SADET/  XST AB ( 5 1 )  ,  Y ST A B (  I  1 )  ,  DX , D Y , YWM , TCPH I 


C 

c 


DATA 
0., 

70.  , 
224.  , 
560.  , 


1 
2 
3 
4 
51456 


(TB(I) 
7.  . 


84 

252 

616 

1638 


1-1 
14. 
98. 

280. 

672. 
1820. 


45)/ 

21 

1  12 

308 

728 

2184 


28 
126 
336 
819 

2548. 


35 

140. 

364, 

910. 

2912, 


42 

154 

392 

1001 

3276 


49 

168 

448 

1092 

3640 


56 
196 
504 

1274 
7280. 


Specify  the  INPUTFILE  and  OUTPUTFILE  Names. 


INPUT 
IOUTP 


C 

1  1  32 

1  134 
1  1  33 


1131 
C   Th 


Bl 
ST 
CR 
SY 


C 

c 

c 
c 
c 
c 
c 


1  1  30 


WR 

FO 

RE 

WR 

FO 

RE 

FO 

OP 

RE 

OP 

RE 

WR 

FO 

e  Fo  1  o 

a  n  k  = 

AR  =  * 

ID  =  I 

MB  (  1  ) 

2 

3 

4 

R 

W 

F 

R 


ITE 

RMAT 

AD  ( 

ITE 

RMAT 

AD  ( 

RMAT 

EN  ( 

WIND 

EN  ( 

WIND 

ITE 

RMAT 

wing 

a  Bl 


(*,  1  1 

('-- 
*  ,  1  13 
(*,11 

('-- 
*,  113 

(a50 
UNIT- 

(3) 
UNIT- 

(4) 
(*,11 

CSp 

s  y  mb 
ank  S 


32) 

-Specify  the  Name 

3)  INPUTFILE 

34) 

-Specify  the  Name 

3)OUTPUTFILE 

) 

3 ,FILE-INPUTFILE , 
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of  your  INPUTFILE') 


of  Che  OUTPUTFILE") 


STATUS-'OLD') 
4,FILE-OUTPUTFILE,STATUS-'NEW', FORM- ' FORMATTED ' ) 


31) 

ecify  the  No.  of 

ols  are  proposed 

pace 


Symbols  to  be  used  in  the  plot') 
for  the  user  to  input. 


=  U  --Fo 

=  C  — Fo 

=  0  --Fo 

=  T  --Fo 

EAD  (*  ,  *) 

RITE  (*  ,  1 

ORMAT(  'Sp 

EAD  (*  ,  19 


r  Ave.  Deg.  of  Co 
r  Consol.  Settlem 
r  I  m  m  . 
r  To t a  1 

MMM 
1  30) 

ecify  Characters- 
4)  BLANK, STAR, GRID 


nsolidation 
e  n  t  . 


Blank,  STAR, GRID, (SYMB(I)  ,1  , MMM)  ' ) 
, ( SYMB( I) , 1=1 ,MMM) 


DE 
ST 
MY 
i  n 
PO 
PO 
th 

Pu 

*  * 

999 


C  MMM 

C  Rea 
C  If 


TERM 

ABIL 

E.  LE 

the 

R  =  Ho 

R-th 

e  ce 

t  PO 
*  *  *  * 

R 
I 
I 
T 
I 
d  no 
ISP- 
r 
r 


C  LND 
C  (  i . e  No 
9001 


INAT 
ITY 

•  12, 
fin 

rizo 
e  di 
n  t  e  r 

R=l  . 

*  *  *  * 

EAD 
F  (I 
F  (I 

0  t  a  1 
F  (I 
.  of 

1  (s 
e  ad 
ead 

-  No 
.  of 


READ 


ION 

ANAL 

MHE. 

i  te 

nt  a  1 

stan 

lin 

0  an 
*  *  *  * 

(  INP 
TBL. 
TBL. 

no . 
SP.  E 

po  i 
pe  c  i 
(  INP 
(  INP 
.  of 

wee 
con  t 
(  INP 


OF  ME 

YSIS. 

LE.  40 

dif  f  e 

drai 

ce  to 

e  .  Put 

d  IPO 
*  *  *  *  * 

UT,*) 
LE.0) 
GT.  45 

of  S 
Q.  1) 
n  t  s  f 
a  1  po 
UT,*) 
UT,*) 

line 
k  s  on 
i  nue 
UT,*) 


SH  POINTS  FOR  FINITE  DIFFERENCE  SCHEME  AND 


:  Num 

r  e  n  ce 

nage 

the 

IPOR 

R  =  0  t 
*  *  *  *  * 

MYE  ,M 
ITBL 
)  ITB 
YMB  ( 
GOTO 
or  wh 
int  s  ) 
JND 
(JSP 
s  to 
the 

LND 


be  r  o 
sche 
dis  t  a 
zero 
-Kif 
hen  t 
*  *  *  *  * 

HE  ,  IT 
=  45 
L  =  45 
S  y  mbo 
9001 
i  c  h  o 
,  out 


f  vertical  and  horizontal  points 

me.  HF=l.-for  horizontal  flow 

nce/(XT(IEND)*W). 

pore  pressure  in  H  dirn  from 

POR  is  input  by  the  user). 

he  program  will  determine  POR 
******************************** 

BL , ISP , HF  ,  POR  ,  IPOR 


Is)  to  be  used  in  the  output 

utput  is  required, if  ISP  =  0. 
put  the  data  for  points  XT. 


ID) 


(  K)  ,K-1  ,  JNI 
be  printed, 
time  axis  in  the  output) 


C 
C 
C 
C 

c 
c 

c 


CE 

RU 


CE 


NERATE  THE  MATHEMATICAL  MOLECULE 
LE  IN  VERTICAL  DIRECTION. 

CALL  GENS  (SV.MYE) 

NERATE  VECTOR  YE 

MT-MYE-1 


FOR  SIMPSONS  OR  TRAPEZOIDAL 


.20 


C 
C 

c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


c 
c 
c 


c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 


1 1 


D  =  MT 

D-l./D 

DO  11  1-1 ,MT 

AI=I-1 

YE( I)=AI*D 

YE(MYE)-1. 

IF  (ISP.EQ.  1  ) 


GOTO  1 


READ  NUMBERS  OF  EQUIDISTANT  POINTS,  MX,  IN  X-DIRECTION,  NUMBER 
OF  INTERVALS,  NI ,  AND  INTERVAL  LIMITS  AX (  I )  ,  I  -  1  ,  NI . 
THESE  LIMITS  ARE  DIMENS IONLESS .  TO  GET  THE  CORRESPONDING  VALUES 
IN  FEET,  THE  AX(I)  ARE  MULTIPLIED  BY  THE  REFERENCE  VALUE  W  WHICH 
IS  INPUT  LATER. 

READ  (INPUT,*)  MX.NI 

NIM-NI-1 

READ  (INPUT,*)  (AX(  I)  , 1  =  1  ,NI) 


READ  NUMBER  OF  UNEQUALLY  SPACED  POINTS  IN  EACH  INTERVAL,  MXT(I), 
CENERATE  THE  POINTS  XT,  IF  ISP-0 


READ  (INPUT,*)  (MXT( I) , 1=1 ,NIM) 
IEND-0 


CENERATE  XT-S 


NIM 


22 
2  1 


DO  21  J=l . 

MT=MXT( J) 

ISTT=IEND+1 

IEND-IEND+MT 

D=2*MT 

AS=AX( J+l )+AX( J) 

AD=AX( J+l )-AX( J) 

DO  22  I-ISTT.IEND 

AI  =  2*(  IEND-D  +  1 

XT( I)=(AD*COS(AI*3 

CONTINUE 

GOTO  2 


14159265358979/D)+AS)/2 


points  be  directly  under  the  main 


READ  SPECIAL  POINTS  IF  ISP=>1 
IEND  must  be  atleast  6  and  4 
embankment . 
1      READ  ( INPUT,*) IEND 

READ  (INPUT,*)  (XT( I) , 1=1 , IEND) 

GOTO  kl 

Cenerate  equidistant  points  in  x-dirn  including  the  limits 
AX(l)and  AX(NI).  Determine  the  number  of  XE-s  in  each  interval 
MXE(I).  If  the  left  limit  of  the  I-th  interval  coincides  with 
an  XE(K),  the  limit  is  considered  in  MXE(I). 

MT-l 

J-2 

MM-MX-1 

D-MM 

D-(AX(NI)-AX( 1 ) ) /D 

XE( 1 )=AX( I ) 

DO  23  1-2, MM 


23 


-  121  - 
XE( I)=XE( 1-1 )+D 

IF  (XE(  I).LT. (AX( J)-0.001  ))  GO  TO  23 
MXE( J-l )-I-MT 
MT-I 
J-J+l 
CONTINUE 
XE(MX)-AX(NI) 
MXE(  J-D-MX+1-MT 


C 

c 
c 


c 
c 
c 


INITIATE  THE  DETERMINATION  OF  MATRICES  XMT, XME  AND  R 

IEND-0 
JEND-0 
IRND-0 

DO  4  1  J-l  ,NIM 
GENERATE  MATRIX  XMT  FROM  XT-S  AND  INVERT  XMT 

ISTT-IEND+1 

IEND=IEND+MXT( J) 

PAGE  4 

CALL  MATR  ( I STT , I E N D , MXT ( J )  , XT  ,  AX ( J )  ,  XMT ) 

CALL  MINV  (XMT ,MXT( J) , DETER) 

Generate  matrix  XME  from  XE-s 

JSTT-JEND+1 

JEND-JEND+MXE( J) 

CALL  MATR  ( J S TT , J E N D  ,  MXT ( J )  , XE , AX ( J )  , XME ) 
Post  multiply  the  inverse  of  matrix  XMT,  which  is  stored  in 
array  XMT,  by  matrix  XME,  and  store  the  result  in  matrix  R 
starting  with  element  R(IRST). 


IRST-IRND+1 

IRND-IRND+MXT(J)*MXE(J) 

CALL  MPRD  (XMT ,XME , R,MXT( J)  ,MXT( J)  ,MXE( J) 

CONTINUE 

AIEND-IEND 


1,1, IRST) 


C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 


NOTE  THAT  THE  LAST  VALUE 
NUMBER  OF  XT-S. 


OF  IEND  IS  EQUAL  TO  THE  TOTAL 


INPUT  DATA  FOR  A  SPECIFIC  CASE. 

**************************************************** 

Read  thickness  of  soil  layer, H, Unit  weigeht  of  the  embankment 
load , GLOAD , Und r a ined  strength  of  the  embankment  material  CLOAD, 
Reference  length  in  H-d i r n , W  ,  Th i ckne s s  of  the  drainage  blanket, 
YWM, Tangent  of  angle  of  internal  f r i c t ion  ,  TGPH  I . 
If  H-0.0  the  program  is  terminated. 


C 
C 
C 
C 


100      READ  (INPUT,*)  H , CLOAD , CLOAD  ,  W  ,  YWM  ,  TGPH  I 
IF  (H.EQ.O.)  GOTO  10000 
IF  (H.EQ.99.)  COTO  999 
HH-H 

IDC-1  vertical  flow  only  in  all  XT-s 
IDC-2  vertical  +  horizontal  flow. 


IDC-2 


C   DET 
C   -EC 
45 


-  .22   - 

IF  (HF.EQ.O.)   IDC-1 
ERMINE  INCREMENTS  IN  VERTICAL  AND  HORIZONTAL  DIR 
TION,  DY  AND  DHX 

DY=«MYE-1 

DY=H/DY 

DYSQ-DY*DY 


C 
C 

c 
c 
c 
c 
c 
c 


Read 
IBCV 
IBCV 
IBCV 
Read 
A.  LE 


H, 


case  of  i nhomoge neous  soil, 


C 

C  Read 

C  R  K  V  = 

C 


C  De  te 
C  dif  f 
C 


drainage  identifier  IBCV 
-1  Impeded  drainage  at  Y' 
■2  Free  drainage  at  Y-H, 
-3   No  drainage  at  Y-H 

location  of  interface  in 
•LAYER. LE.MYE-3 

READ  ( INPUT,*) IBCV .LAYER 

N=MHE-1 

M=MYE-2 

IF  (IBCV.EQ.3)  M=MYE-1 

IF  (IBCV.EQ.2)  FIMPV-0. 

I F  ( IBCV.CT. 1 )  CO  TO  4 


thickness  of  irapedence  layer, HI, and  ratio  of  permeabilities, 
K(draining  so i 1 , ve r 1 1 ca 1 ) / K ( i mpede n ce  1  ay e r  ,  ve r t i c a  1 ) 

READ  ( INPUT, *)HI  ,RKV 

CHIV=RKV*HI/DY 

FIMPV=CHIV/( 1 .+CHIV) 

IF  (HF  . EQ.  0. )  CO  TO  7 
rmine  the  horizontal  grid  point 
erence  scheme. 


to  be  used  in  the  finite 


25 


C 
C 

c 
c 
c 

C 

c 


C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 


Che  c 
K(  lo 
CV(  1 
void 
comp 
coup 


of  permeabilities, 
of  consolidation, 


RK  = 
RC  = 


Read 
IVAR 
IVAR 
ISAT 
ISAT 
IAV- 
IAV- 
ICV- 
ICV. 


AI=MHE-1 

DHX=POR*XT(IEND)*W/AI 

IAI=AI 

DO  25  1=1 , IAI 

XET(I)-P0R*(I-1)*XT(IEND)/AI 

CONTINUE 

DXSQ=DHX*DHX 
k  for  layer  interface.  Read  ratio 
we r ) / K ( uppe r )  ,  and  ratio  of  coeff 
over) /CV( upper ), RE0»E0( lowe r) /EO(upper) =Rat io  of  initial 

ratios,  RAV  =  AVO ( 1  owe r )/ AVO ( uppe r ) =Ra t i o  of  coeff.  of 
ress.,  RCC=»  (  c  c  (  1  owe  r  1  a  y  e  r  )  /  cc  (  u  p  pe  r  layer)=Ratio  of 
ression  indices.  ROCL-cc ( re comp r e s s i on , 1  owe r ) / cc ( uppe r ) 

IF  (LAYER  .LT.  3)  GOTO  6 

READ  (INPUT, *)RK,RC,RE0,RAV,RCC,R0CL 

IF  (LAYER  .GT.  (MYE-3))  LAYER-0 

Identifiers  and  parameters  for  the  compressible  layer 

-0  Const,  soil  parameters  in  the  consolidation  process. 

-1  Variable  soil  parameter  in  the  consolidation  process. 

-0  100Z  saturation. 

-1  Partial  saturation. 

0  Const,  coeff.  of  compressibility. 

1  Variable  coeff.  of  compressibility. 

0   Vectors  of  coeff  of  consolidation  are  not  input. 
GT.O  Vectors  of  coef.  of  consol.  are  input.  Variable 

CV  and  CH  are  obtained  in  subroutine  COEFF  by 

interpolation. 


IK 
IK 


'0 

•1 


-  123  - 
Const,  coeff.  of  permeability. 
Variable  coeff.  of  permeability. 


E  Vs  LOG(P) 


EO  Initial  void  ratio. 

KVO  Initial  vertical  permeability. 

KHO  Initial  horizontal  permeability. 

AVO  Initial  coeff  of  compressibility. 

A,B  Skempton  Pore  pressure  coefficients. 

CC   Compression  index  of  the  virgin  part  of  the 

curve . 

ROC  (Recompression  index)/CC  in  case  of  consolidation. 

GAMMA 

P(D 
PC(  I) 
CV.CH 
S 

PU 


c 
c 
c 

C 

c 


Buoyant  unit  weight  for  computing  initial  eff.  stress. 
Initial  effective  stresses. 
Pre comp re s s ion  stresses. 

Vertical  and  Horizontal  coeff.  of  consol. 
Degree  of  saturation. 
Initial  Gas  pressure. 
SKV.SKH  Slopes  of  the  void  ratio  Vs  LOG ( pe rmea bi 1 i t y )  curve. 

READ  (INPUT,*)  IVAR,IAV,ICV 
IF  (ICV  .NE.  0)  IVAR=1 
READ  (INPUT,*)  E0,A 
ALPHC-1 . 
B=l  . 

IF  (IAV  .EQ.  I)  GOTO  350 
READ  (INPUT,*)  AVO 
GOTO  563 

Read  cc,  ROC  and  GAMMA.  If  GAMMA. NE.O.,  Initial  eff  stresses,  P, 
are  computed  and  normal  consol.  is  assumed.  If  GAMM=0.,  initial 
and  p re comp res s i on  stresses  are  input. 


350      READ  (INPUT,*)  CC, ROC, GAMMA 
IF  (GAMMA  .EQ.  0.)  GOTO  561 


C 
C 
C 


Initial  eff  stresses  are  conputed.  PO  and  PCO  are  averages 

AD=DY*CAMMA 
P( 1 )=AD 
PC( 1 )=AD 
PL0G( 1 )=0. 
P0-GAMMA*H/2. 
PCO-PO 
AI-0. 

DO  565  1-2, MYE 
AI-AI+AD 
P(I)-AI 
PC( I)-AI 
PL0G(I)-0. 
565    CONTINUE 
GO  TO  563 

Initial  eff.  and  p r e comp r e s s i on  stresses  are  input. 

561     READ  (INPUT,*)  P(1),PC(1) 
P0-SV( 1)*P( 1) 
PC0-SV( 1)*PC( 1 ) 
DO  562  1-2, MYE 
READ  (INPUT,*)  P(I),PC(I) 
P0-P0+SV( I)*P( I) 


c 
c 
c 
c 


-    12U    - 

PCO=PCO+SV( I)*PC( I ) 

PLOG(I)=»ALOC(PC(I)/P(I)) 
562    CONTINUE 

IF  (P(  1)  .EQ.  0. )  P( 1)-P(2) 

IF  (PC(1)  .EQ.  0.)  PC(1)-PC(2) 

PLOG( 1)-AL0G(PC( 1)/P( 1 )) 
If  constant  parameters  are  to  be  used  in  the  cosol.  process 
read  CV.CH.AVO.  If  variable  parameters  are  to  be  used, IF  IVAR-1 
read  necessary  coeffs. 


563 

564 

573 

572 
574 

566 


564 


572 


*)  KV0.KH0 
1)  GOTO  566 


567 
30 


IF  (IVAR  .EQ.  1)  GOTO 

READ  (INPUT,*)  CV.CH 

GOTO  30 

IF  (ICV  .EQ.  0)  GOTO 

DO  573  1-1 ,ICV 

READ  (INPUT,*)  PCV( I)  ,CVIN(  I)  ,  PCH(  I)  ,CHIN(  I) 

GOTO  574 

READ  (INPUT, 

IF  (IAV  .EQ. 

AVOC=»AVO 

P0  =  0. 

PCO=0. 

READ  (INPUT,*)  ISAT.IK 

IF  (ISAT.EQ.O)  GOTO  567 

READ  (  INPUT  ,*)S , PU ,HC, B 

IF  (PU.EQ.O. )  PU-21 17. +62 

E0PS=E0*PU*(1.-S*(1.-HC)) 

IF  (  IK.EQ.  1 )  READ  (  INPUT,' 

CONTINUE 


43*H/2. 


)  SKV.SKH 


C 

c 
c 
c 
c 
c 
c 


Read  N  C  initial  shear  strengths  C0(I)  and  C/PBAR-ratios 
at  arbitrary  depths  Y(I).  if  NC.EQ.MYE,  the  depths  are 
assumed  to  be  equal  to  H*YE(I).  IF  NC.LE.MYE  the  values 
of  C0(J)  and  PC(J)  at  H*YE(J)  are  obtained  by  interpolation 
The  input  values  are  not  saved. 


IF  (ISP. EQ. 1 )  GOTO  585 

READ  (INPUT, *)NC 

DO  580  1  =  1, NC 

READ  (INPUT,*)  Y,UA( I)  ,UB(  I) 

580  YRP(I)-Y/H 

IF  (NC.EQ.MYE)  GOTO  581 
CALL  LAGR  ( Y E  ,  CO , MYE ,  1  , Y RP  ,  U A , NC ) 
CALL  LAGR  ( YE  ,  C P  ,  M YE ,  1  , Y RP  ,  U B  ,  NC ) 
GOTO  582 

581  DO  583  1-1 ,MYE 
CO( I)-UA( I) 

583     CP(I)-UB(I) 


C 
C 
C 

c 


Define  the  vectors  XSTAB  and  YSTAB  which  are  needed  in  the 
stability  analysis. 


582     DO  584  I-l.MX 
584     XSTAB( I)-W*XE(  I) 

DX-XSTAB(2)-XSTAB(  1  ) 


DO  586  1-1 ,MYE 
586     YSTAB( I)-H*YE(  I) 

585     CONTINUE 


-  i^b  - 

OUTPUT  OF  DATA  INPUT  SO  FAR.  FOR  FORMAT  STATEMENTS 
SEE  END  OF  PROGRAM 
************************************************** 


51 
53 


551 
552 

54 


55 


553 


555 


554 


556 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


(10UT 
(  IOUT 
(IOUT 
(IOUT 
(IOUT 
(  IOUT 
(  IOUT 
(  IOUT 
(  IOUT 
(  IOUT 


IF  (ISP.EQ. 
WRITE  (IOUT 


WRITE 
WRITE 
WRITE 
DO  51 


(IOUT 
(  IOUT 
(  IOUT 
1=1  ,N 


P, 
P, 
P, 

P, 
P, 
P, 
P, 
P, 
P, 
P, 
1) 
P, 
P, 
P, 
P, 
IM 


901  ) 
900) 
903) 
900) 
904) 
902) 
905) 
902) 
906) 
902) 
GOT 
907) 
902) 
908) 
909) 


(YE(I) ,1=1 ,MYE) 
(XT( I )  , 1  =  1  ,IEND) 
0  53 

(XE(I) ,1=1 ,MX) 


MM=MXT( I )-l 

WRITE  (IOUT 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 


(  IOUT 

(IOUT 

(IOUT 

(IOUT 

(  IOUT 

(  IOUT 

IF  (LAYER. L 

AI=YE(LAYER 

WRITE  (IOUT 

IF  (IAV.  EQ 

WRITE  (IOUT 

GOTO  552 

WRITE  (IOUT 

WRITE  (IOUT 

WRITE  (IOUT 

IF  ((l.-B) 

WRITE  (IOUT 

WRITE  (IOUT 

WRITE  (IOUT 

WRITE  (IOUT 

IF  (IAV.EQ. 

WRITE  (IOUT 

WRITE  (IOUT 

GOTO  554 

WRITE  (IOUT 

WRITE  (IOUT 

DO  555  1=1  , 

AI=YE(I)*H 

WRITE  (IOUT 

CONTINUE 

WRITE  (IOUT 

WRITE  (IOUT 

IF  (IVAR.EQ 

WRITE  (IOUT 

GOTO  57 

IF  (ICV.EQ. 

WRITE  (IOUT 
no  <;  7  f.     t  e  l 


P  ,910)  MM  ,AX( I )  ,AX( 1  +  1  ) 

P.902) 

P.901  ) 

P.902) 

P.913) 

P ,914)H  ,W 

P.902) 

T.3)  GOTO  54 

)*H 

P,91 5)  AI ,RK ,RC ,REO 

.0)  GOTO  551 

P,715)RCC,ROCL 


P.815)  RAV 

P.902) 

P  ,916)  A,B 

.LT. 0.00001)  GOTO  55 

P,917)  S.HC.PU 

P.902) 

P.918)  EO 

P.902) 

1)  GO  TO  553 

P,818)AVO 

P.902) 

P,919)CC,ROC 

P.819) 

MYE 

P,719)  AI ,P(I)  ,PC(I) 

P.619) 

P,902) 

.1)  GOTO  556 

P.934)  CV.CH 

0)  GOTO  575 
P.820) 


126 


576 
575 
57 


6  1 


63 


WRITE(IOUTP,720)PCV(I),CVIN(I),PCH(I),CHIN(I) 

GOTO  57 

WRITE  (IOUTP, 920)  KVO.KHO 

IF  (IK.EQ.l)  WRITE  ( IOUTP  ,  9 2 1 ) SK V , S KH 

WRITE  (IOUTP, 902) 

WRITE  (IOUTP, 922) 

IF  (  IBCV.NE.  1 )  GOTO  61 

WRITE  (IOUTP,  926)HI  ,RKV 

GOTO  64 

IF  (IBCV.EQ.3)  GOTO  63 

WRITE  (IOUTP, 927) 

GOTO  64 

WRITE  (IOUTP, 928) 


C 
C 

c 
c 
c 

c 
c 
c 

c 
c 


64      WRITE  (IOUTP, 902) 

IF  (ISP.EQ.  1)  GOTO  587 

WRITE  (IOUTP, 961) 

DO  588  I-l.MYE 
588     WRITE  (IOUTP, 962)  YSTAB(  I  )  ,  CO ( I )  ,  CP ( I ) 
587     WRITE  (IOUTP, 900) 

Define  the  modified  molecules  SVM  in  vertical  direction. 

Redefine  ROCL  to  be  the  ratio  of  the  Recompression  index 

of  the  lower  layer  and  the  compression  index  of  the  virgin 

part  of  the  lower  layer. 

Redefine  also  the  parameters  KKK , KI AV , NNN , FU P , FLO , SKVM , SKHM 

CCC,AAV,AAH  and  ICOEFF,  which  are  needed  in  subroutines  SETL 

and  COEFF. 

Redefine  also  PCV , PCH , CV I N , CH I N  in  case  that  ICV.NE.O 

AIM  .+EO 

AAV-AI/(62.42796*DYSQ) 
IF  (HF.EQ.O.)  GOTO  521 
AAH=AI/(62.42796*DXSQ) 

521  KKK=MYE 
KIAV-IAV+1 
NNN-1 

AD  =  H 

IF  (LAYER. GE. 3)  GOTO  524 

DO  523  1-1  ,MYE 

523  SVM(I)-SV(I) 
GOTO  522 

524  KKK-LAYER 

CALL  CENS(SVM.KKK) 

MM=MYE-LAYER+1 

CALL  GENS(UA,MM) 

I I=LAYER 

DO  525  I-l.MM 

II-II+l 

525  SVM(II)-UA(I) 
AS-1 .+EO*REO 

IF  (RCC.NE.O.)  ROCL-ROCL/RCC 
AD-H*YE(LAYER) 

522  ICOEF-1 

IF  (IK.EQ.l)  ICOEF-2+IAV 

IF  (ICV.EQ.O)  COTO  530 

ICOEF-4 

DO  529  1-1 , ICV 

PCV( I)-ALOG(PCV(  I)  ) 

CVIN(  I)-CVIN(  D/DYSQ 


.27  - 


529 
530 


IF  (HF.EQ.O.)  GOTO  529 

PCH(  I)-ALOG(PCH(  I) ) 

CHIN( I )-CHIN( I) /DXSQ 

CONTINUE 

IF  ( IAV.EQ. 1 )  GOTO  527 


Coeff.  of  compressibility  Is  const  (IAV-0) 

FUP-AD*AVO/AI 

IF  (LAYER. GE. 3)  FLO- ( H-AD ) * AV0*RAV / AS 

IF  (IK.EQ.O)  GOTO  520 

SKVM-2. 302585* AVO/SKV 

IF  (HF.EQ.O.)   GOTO  520 

SKHM-2.302585*AVO/SKH 

GOTO  520 

Variable  coeff.  of  compressibility  IAV=1. 


527     CCC-0. A342945*CC 
AVOC-CCC/PCO 

IF  (PCO.GT.PO)  AV0C=AV0C*( PC0/P0)**R0C 
FUP=AD*CCC/AI 

IF  (LAYER. GE. 3)  FL0= ( H-AD ) * CCC* RCC/ AS 
IF  (IK.EQ.O)  GOTO  520 
SKVM-CC/SKV 
IF  (HF.GT.O.)  SKHM=CC/SKH 


C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


REFERENCE  LOAD. 
********************************************************* 

Read  characteristics  of  the  reference  load. 

XINP.YINP  -the  coordinates  of  the  polygon  which  describes 

the  load . 

MINP-  The  no.  of  points. 

NS-  The  no.  of  strips  by 


which  the  actual  load  is  approximated. 


520     READ  ( INPUT, *)MINP  ,NS 

WRITE  (IOUTP.935) 

WRITE  (IOUTP.916)  A,B 

WRITE  (IOUTP.930)  GLOAD , CLOAD , YWM  ,  TGPH  I  ,  M  I  N P 

DO  101  1-1, MINP 

READ  (INPUT,*)  XINP(I)  ,YINP(  I) 
101     WRITE  (IOUTP.931)  X  I  NP (  I )  ,  Y I N P (  I ) 


C 
C 
C 
C 

C 
C 

c 


c 
c 
c 
c 


Compute  the  pore  water  pressures  at  ( XT(  I  )  , I  =  1  , I  END ) / YE ( J  )  ,  J- 1  ,  MY E ) 

CALL  PORE  (XINP.YINP, MINP, NS, XT, IEND, YE, MYE.UB, A, B) 
determine  the  horizontal  distance  from  the  Center  line  to  the  point 
where  the  pore  pressure  is  0.17.    of  the  max  pore  pressure  under  the 
embankment.  This  is  taken  as  a  free  drainage  end. 

CALL  HDIST  ( UB , XT , I  END , I CV , CH I N , DXSQ , AAH , MHE , W , XET , I POR , 
*   HF.MYE.P0R) 

IPOR-1 

Compute  the  average  pore  pressures  UAVER(  I )  ,  I  ■  1  ,  I  END  for  the 
reference  load.  Determine  final  consolidation  se 1 1 1 emen t s , SETREC  (  I )  , 
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Immediate  se 1 1  le me n t s  ,  SETR I (  I )  ,  and  Total  settlements  (SETRT(I), 
I=1,IEND  for  the  reference  load. 


02 

01 


II-O 

DO  501 

UAVER(  I)' 

DO  102  J' 

II-II+l 

UU( II)-UB( II) 

UAVER(I)-UAVER(I)+UB(II)*SV(J) 

CONTINUE 


1-1  ,  IEND 
■0. 
'1  ,MYE 


14 
1  3 


CALL  SETL  ( U B  ,  S ETRC  ,  I  END , KKK , MYE ,  I .  , FU P  ,  F LO  ,  K I AV ) 

IF  (B.NE. 1 . )  GOTO  513 

DO  5  14  1-1 ,IEND 

SETRT( I)-SETRC( I) 

SETRK  I)=0. 

GOTO  515 

FAC=1 . / B 

CALL  SETL  ( U B , S ET RT , I E N D , KKK , M YE , F AC , FU P , F LO , KI AV ) 


C 

C 

c 

C 

c 

c 
c 

c 


Define  initial  parameters. 

TL(LIFT)  Time  of  LIFT-th  load  application. 

TB(ITB)   Time  from  TL(LIFT)  till  TL(LIFT+1)  given  in  DATA 

statement. 

Y(IT)     Time  from  first  load  application,  T ( IT ) =TL ( L I  FT) 

+  TB(  ITB) 


C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


5  1  5     WRITE  (  IOUTP  ,932) 

DO  7  1  1=1 ,IEND 

AI=W*XT( I) 

WRITE(IOUTP,933)AI,UAVER(I)  , SETRC( I )  ,  SETRT( I) 
7  1       CONTINUE 

WRITE  (IOUTP, 900) 

ISUM=MYE*IEND 

LIFT=1 

LL=LIFT+1 

ITB=1 

IT=1 

TL( 1 )=0. 

TB( 1 )=0. 

T( 1 )=0. 

Read  no.  of  lifts, NL.  If  computation  for  special  points  is  required 

(ISP-1),  read  also  NL  times  of  load  a p p 1 i ca t i on , TL . 

NLS  is  defined  for  checking  purposes  at  the  end  of  the  program 

I  DEN (  1  )  . LT. 0 ,  Pore  pressures  due  to  the  first  load  are  set 

equal  zero. 

IDEN(I)-0,  ,  I-1,NL  pore  pressures  due  to  the  I-th  load  are4 

computed  by  means  of  subroutine  PORE. 

IDEN(I)-1,  I-l.NL  POre  pressures  due  to  the  I-th  load  are 

set  equal  to  those  due  to  the  REFERENCE  load. 

READ  (INPUT,*)  NL, (  IDEN(  I)  , 1-1  ,NL) 

NLS-NL 

WRITE  (IOUTP, 936)  NL 

WRITE  (IOUTP, 902) 

IF  (ISP.EQ.0)  C0T0  103 

READ  (INPUT,*)  (TL(I),I-1,NL) 

WRITE  (  IOUTP  ,937) 


DO  106  1-1 ,NL 
106     WRITE  (IOUTP.938) 
WRITE  (IOUTP.902) 
T(1)-TL( 1)+TB(  1) 
GOTO  105 


.29 


I,TL(I) 


C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


FIRST  LOAD. 
****************************************************** 


Read 

TA 

SPECS 

SPECU 


FSI 
DMAX 
DMIN 
ZZ 

NARC 
NRAD 
IAB-0 
IAB.  N 


characteristics  of  the  first  load,  also 
Available  construction  time. 

Specified  settlement  for  the  first  lift. 

When  the  NOT  DISSIPATED  average  pore  pressures 

become  less  than  57.    of  the  total  average  pore  pressure 

at  the  time  of  load  application  at  IEND*SPECU  points, 

the  subsequent  loads  are  disregarded. 

Factor  of  safety  for  the  first  lift. 

max.  interval  used  in  the  search  for  the  minimum  FS 

Corresponding  minimum  interval. 

Distance  between  the  maximum  YINP  and  the  minimum 

permissible  YC  during  the  search  procedure. 

One-half  the  no.  of  subarcs  used  in  subroutine  DETFS 

No.  of  trial  arcs  used  at  each  center  YC,YC 

Use  A  and  B  as  defined  earlier. 
E.O  Read  new  values  of  A  and  B. 


103 


01 

05 
06 


READ  (INPUT,*) 

READ  (INPUT,*) 

IF  (DMAX. GT. DMIN) 

DMAX=H/2. 

DMIN-H/20. 

WRITE  (I0UTP.940)  TA 

WRITE  (I0UTP,840)  DMAX, DMIN. 

READ  (INPUT,*)  MINP.NS.IAB 

DO  506  I-l.MINP 

READ  (INPUT, *)XINP(  I)  , YINP(  I) 

IF  (IAB.NE.0)  READ  (INPUT,*) 

IF  ( ISP.EQ. 1 )  GOTO  107 


FSI,SPECS(1),SPECU(1),TA,DMAX,DMIN,XC,YC,ZZ 
NARC ,NRAD 
GOTO  401 


NARC  ,NRAD 


A,  B 


C 
C 

c 


CALL  SUBROUTINES  FOR  STABILITY  ANALYSIS 

CALL  INIT  (XINP , YINP ,MINP ,XC ,YC ,YY , ZZ  , DMIN) 
CALL  CAIN  (UA,R,SU,MYE,MXT,MXE , MX  ,  N I M  ,  CO  ,  C P  ,  1) 

CALL  STAB  ( XC , YC , RR , X  I N P , Y I N P , MI NP , MX , MYE , S U , FS , DMAX , DM  I  N , YY ) 
DO  570  I-l.ISUM 
570     UA(I)-0. 


C 
C 
C 
C 
C 


WRITE  (IOUTP.942)  T(  IT )  ,  L I  FT  ,  FS  ,  FS  I 
WRITE  (I0UTP.842)  XC.YC.RR 
IF  (FS.GE.FSI)  GOTO  107 
WRITE  (I0UTP.943) 

Since  Branching  to  the  input  of  a  new  case  might  result  in  the 
reading  of  the  following  load  characteristics  instead  of  the 
data  for  a  new  run,  the  program  is  terminated  here. 


107 


GOTO  10000 

WRITE  (IOUTP.902) 


C 
C 


RESIDUAL  PORE  PRESSURES 
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Q       ******************************************************* 

C 

C  Read  index  IRP  and,  for  IRP.NE.O  residual  pore  pressures. 

C 

C  IRP»0   No  residual  pore  pressures. 

C  IRP-1   Residual  pore  pressures  at  XT/YE  are  input. 

C  IRP-2   Residual  pore  pressures  at  points  other  than  XY/YE 

C  are  input. 

C 

READ  (INPUT,*)  IRP 

IF  (IRP-1)  109,  110,  1  1  1 
C 

C  NO  RESIDUAL  PORE  PRESSURES 
C 

109  DO  112  J-l.ISUM 

112  UC(J)-0. 
GO  TO  108 

C 

C  Residual  pore  pressures  at  points  XT/YE.  Input  is  columnwise 

C  with  each  input  card  containing  ten  values 

C 

110  READ  (INPUT,*)  ( UC (  I  )  ,  I  =  1  , I  SUM) 
WRITE  (I0UTP.944)  ( YE ( J  )  ,  J=  1  ,  MYE ) 
II-l-MYE 

IJ-0 

DO  113  I-l.IEND 

II-II+MYE 

IJ=IJ+MYE 

113  WRITE  (IOUTP.945)  I  ,  XT (  I )  ,  ( UC ( J )  ,  J=  1  1  ,  IJ ) 
GOTO  108 


C  Residual  pore  pressures  at  points  other  than  XT/YE.  Residual 
C  pore  pressures  at  XT/YE  are  obtained  by  interpolation.  The 
C  input  values  are  not  saved. 
C 
111      WRITE  (I0UTP.946) 

1  =  1 

J-l 

READ  (INPUT,*)  X,Y,UA( 1 ) .COUNT 

WRITE  (IOUTP.947)  X,Y,UA(1) 

XRP( 1 )-X/W 

YRP( 1 )-Y/H 

IF  (COUNT. EQ. 0. )  GOTO  115 

DO  114  J-l  ,ISUM 

114  UC(J)-UA(1) 
GO  TO  108 

115  READ  (INPUT,*)  X,Y,U, COUNT 
WRITE  (IOUTP.947)  X.Y.U 
X-X/W 

Y-Y/H 

IF  (ABS(X-XRP( I) ) .LT. 0.00001 )  GOTO  116 
IJ-(I-1)*MYE+1 


C 
C 


1  16 


CALL  LAGR  ( YE  ,  UC  ,  MYE  ,  IJ  ,  YRP  ,  U A , J ) 

I-I+l 

XRP( I)-X 

J-0 

J-J+l 

YRP( J)-Y 


1  18 
1  17 


1  19 


-  i  j,  - 
UA( J) -U 

IF  (COUNT. EQ.O. )  GO  TO  115 
IJ-(  1-1 )*MYE  +  1 

CALL  LACR  ( YE  ,  UC  ,  MYE  ,  IJ , YRP , U A , J ) 
IJ-1-IEND 
DO  117  JJ-l.MYE 
II-JJ-MYE 
IJ-IJ+IEND 
DO  118  J-l ,1 
II-II+MYE 
UA( J)-UC( II) 

CALL  LAGR  ( XT  ,  UD  ,  I  END , I  J , XRP , U A , I ) 
IJ-0 

DO  119  JJ-l.IEND 
I  I-JJ-IEND 
DO  119  J-l ,MYE 
IJ-IJ+1 
II-II+IEND 
UC(  IJ)=UD( II) 
CONTINUE 


Write  load  characteristics  and  compute  average  pore  pressure  and 
immediate  settlements,  rewind  tape  1  fore  storage  purposes. 
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REWIND  1 


120 


WRITE  (IOUTP.900) 

WRITE  (IOUTP.939) 

WRITE  (IOUTP.916) 

WRITE  (IOUTP.930) 
DO  120  I-l.MINP 

WRITE  (IOUTP.931) 

WRITE  (IOUTP.902) 


LIFT.TL(LIFT) 

A,  B 

GLOAD,CLOAD,YWM,TGPHI,MINP 

XINP( I)  ,  YINP( I) 


IF  (  IDEN( 1 ) )  73,74,516 
74       IDEN(1)=MINP 
73       CALL  PORE  ( X  I  NP  ,  Y  I  NP  ,  I  DEN (  1 )  ,  NS  ,  XT  ,  I  END , YE , MY E , U B , A , B ) 

IF  (HF.EQ.O.)  GOTO  516 

IF  (IP0R.EQ.1)  GOTO  516 


C 
C 
C 
C 
C 


Find  the  horizontal  distance  to  the  point  where  the  pore  pressure  is 
0.1%  of  the  maximum  pore  pressure  under  the  embankment.  This  is 
considered  as  the  drainage  end  in  the  hori  direction. 

CALL  HDIST  ( U B  ,  XT  ,  I  END  ,  I  CV  ,  CH  I  N  ,  DXSQ , AAH , MHE , W , XET , I POR , 
*   HF,  MYE, POR) 
5  16     IF  (  ISP.EQ.  1)  GO  TO  510 

WRITE  (IOUTP,941)  FS  I  ,  S PECS ( L I  FT )  ,  S PECU ( L  I  FT )  ,  I  END 
WRITE  (IOUTP.960)  TL ( L I  FT )  ,  L  I  FT  ,  FS  ,  FS I 
WRITE  (IOUTP.902) 

Compute  Immediate  settlements,  SETI,  if  B.NE.l  compute 
pore  pressures  UAVED  from  UB,  if  IRP-0  or  from  UB+UC, 
if  IRP.NE.O,  write  information  on  tape  1. 


510 
403 
402 


GO  TO  402 


1-1  ,  IEND 


IF  (B.NE. 1. ) 

DO  403 

SETKD-0. 

GO  TO  405 

CALL  SETL  ( UB  ,  SETC , I  END , KKK , MY E ,  1 .  , FUP  ,  FLO  ,  KI AV ) 

AI-1.  /B 


~       L   id       - 


CALL  SETL  (  U B  ,  S ETT , I  END , KKK 


MYE.AI 


FUP.FLO.KIAV) 


04 
05 


1-1 ,IEND 
■SETT(  I)-SETC( I) 


1-1  ,IEND 
■0. 

'SETI(  I) 
•0. 


22 
2  1 


DO  404 

SETI( I) 

II-O 

DO  121 

SETC(  I) 

SETT( I) 

UAVE(I) 

UAVED(I)-0. 

UAVEM( I)-0. 

WRITE  (1)  SETI(  I)  ,SETC(  I)  ,SETT(I)  ,UAVE(I) 

DO  122  J-l ,MYE 

II-II+l 

UD(  II)-UB( II)+UC(  II) 

UAVED(I)-UAVED(I)+UD(II)*SV(J) 

UM( II)-UB(  II)/B  +  UC(  II) 

UAVEM(I)«UAVEM(I)+UM(II)*SV(J) 

UC(  II)-UB(  II) 

UB(  II)-UD(  II) 

CONTINUE 


C 

c 
c 
c 
c 


Determine  soil  parameters  in  a  form  suitable  for  the  subroutine 
DISP.  Only  one  OMEGA-  and  ONE  PHI-  element  for  the  case  of 
constant  soil  parameters  and  full  saturation. 


goto 
UE.N 


UF.N,  1 


1241 
l.XT 
XT 


UAVEM 
UAVED 


IEND) 
IEND) 


241 

242 


UE 
UF 
GO 


N  ,N 
N  ,N 

TO 


,XT 
,XT 

124 


UAVEM, IEND) 
UAVE , IEND) 


124 


125 


if  (IEND.GT.5) 

CALL  LAGR  (XET 

CALL  LAGR  (XET 

go  to  1242 

call  LINT  (XET 

call  LINT  (XET 

IF  (IVAR.NE.O) 

PHI( 1 )=CV/DYSQ 

0MEGA( 1 )=0. 

IF  (HF.GT.O. ) 

GOTO   123 

K0UNT=1 

CALL  COEF  (UAVEM, UAVED  .OMEGA,  PHI 

IF  (HF. EQ. 0. )  GO  TO  125 

CALL  COEF  (UE ,UF, OMEGA, PHI  ,  1  , 2  ,0MED, PHID.N) 

KOUNT=0 


0MEGA( 1 )=CH/DXSQ 


1  , 1  ,0MED  ,  PHID  ,  IEND) 


C 

c 

c 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


CONDITIONS  IN  THE  CONSOLIDATION  PROCESS. 

23     CALL  DISP  ( U B , 5  ,  OMEGA , PH I  ,  0 .  ,  UAV E  ,  1  ,  MYE , I  END , XT , SV ) 


SECOND  OR  FOLLOWING  LOAD 
***************************************************** 

Read  characteristics  of  next  load  depending  on  the  value  of 

LIFT+1. 

Define  the  index  ISTAB. 

ISTAB-0  Determine  the  factor  of  safety. 

ISTAB-1  NO  stability  analysis.  ISTAB  is  set  equal  to  1  if 

pore  pressures  at  special  points  are  to  be  computed 
ISP-l 

FSI-secified  factor  of  safety  for  the  LL-th  load  distribution. 

SPECS-  specified  fraction  of  the  consolidation  settlement. 

SPECU--  if  an  average  degree  of  consol.  of  0.95  due  to  the 


c 
c 
c 
c 
c 
c 
c 
c 
c 
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lift-th  load  is  obtained  at  SPECU ( L I  FT ) *  I  END  points  XT  without 
a  sufficient  factor  of  safety  for  the  LL-th  load  the  LIFT-th 
load  is  taken  to  be  the  last  load  and  NL  is  set  NL-L1FT. 
TMIN   first  stability  analysis  for  the  LL-th  load  will  be 
done  . 

for  TD.GE.TMIN  days  after  application  of  the  LIFT-th  load. 
XC,YC  -coord  of  the  center  of  the  first  trial  arc. 
If  IAB.NE.O  new  pore  pressure  parameters  A  and  B  are  input. 


128  IF  (LL.GT.NL)  GOTO  129 
READ  (INPUT,*)  MINP.NS.IAB 
DO  130  I-l.MINP 

130     READ  (INPUT,*)  XI NP (  I )  , YI NP (  I ) 

IF  (IAB.NE.O)  READ  (INPUT,*)  A,B 

ISTAB-ISP 

IF  (ISP.EQ.  1)  GO  TO  518 

READ  (INPUT,*)  FSI.SPECS(LL)  ,SPECU(LL)  , TMIN , XC , YC , ZZ 

CALL  INIT  (XINP,YINP,MINP,XC,YC,YY,ZZ,DMIN) 

GO  TO  129 
518     TSTEP-TL(LL)-TL(LIFT) 

129  ITB-ITB+1 

IF  ( ITB.GT. ITBL)  GO  TO  200 


C 
C 
C 

C 

c 


Compute  pore  pressures  at  time  T(IT).  Determine  variable  soil 
parameters.  Compute  consol.  settlements.  Perform  stability 
analysis. 

TD-TB(  ITB) 
IT-IT+1 

IF  (ISP.EQ.O)  GOTO  131 
IF  (LL.GT.NL)  GO  TO  131 
IF  (TSTEP.LT.TD)  TD-TSTEP 
131     T( IT)-TL(LIFT)+TD 

CALL  DISP  (UB , 2 .OMEGA, PHI ,TD ,UAVE , LIFT.MYE , IEND.XT.SV) 


C 
C 
C 
C 
C 


Vector  UB  contains  the  pore  pressures  at  time  T(IT).  Vector  UVAE 

contains  the  average  pore  poressures  as  computed  from  UB. 

Vector  UA  contains  the  dissipated  pore  pressures  up  to  time  T(IT) 


2321 
2322 


232 


72 


75 


DMIN,  YY) 


c 
c 
c 
c 
c 
c 


-  134  - 

Compute  settlements  and  average  degrees  of  consolidation. 
Count  at  how  many  points  XT  the  degree  of  consolidation  as 
compared  to  the  pore  pressures  at  the  time  of  the  last  load 
application  is  greater  than  95%. 


133  UCHEK-0. 

DO  132  J-l ,ISUM 
UA( J)-UD(J)-UB( J) 
132     CONTINUE 

CALL  SETL  ( U A  ,  SETC  ,  I  END , KKK , MYE ,  1 .  ,  FUP  ,  FLO  ,  KI AV ) 

DO  134  I-l.IEND 

SETT( I )-SETI( I)+SETC( I ) 

IF  (UAVE( I ) .LT. (0. 05*UAVED( I  )  ) )  UCHEK-UCHEK+ 1  . 

UAVE(I)-(UAVED(I)-UAVE(I))/UAVER(I) 

WRITE  (1)  SETI( I )  ,SETC( I)  ,SETT( I)  ,UAVE( I) 

134  CONTINUE 


C 
C 

C 

c 
c 
c 
c 
c 
c 


In  the  following  checks  are  made  for  the  no.  of  lift,  whether 
the  FS  is  sufficient  for  the  next  lift,  whether  a  specified  amount 
of  settlement  at  point  XT(1)  has  already  occured,  whether  the 
available  construction  time  TA  has  been  passed,  and  whether  an 
average  degree  of  consol.  relative  to  the  pore  pressures  at  the  time 
of  load  application  of  95%  has  been  reached  at  .  GE . S PECU ( L I  FT ) *  I  END 
points  XT 

IF  (LIFT.EQ.NL)  GOTO  129 

IF  (  ISP.EQ. 0)  GO  TO  135 

IF  (TD.EQ.TSTEP)  go  to  137 

GO  TO  129 
135     IF  (ISTAB.EQ.O)  GO  TO  138 

IF  (SETC( 1 ) .GT. SPECS(LIFT)*SETRC( 1 ) )  GO  TO  137 
138     IF  (T(IT) .GT.TA)  GO  TO  139 

IF  (UCHEK. LT. A  I  END* S PECU ( L I  FT ) )  GO  TO  129 

NL-LIFT 

I  II-UCHEK  +  O.  1 

WRITE  (I0UTP.948)  1 1 1 , I  END , TL ( L I  FT )  , L  I  FT 

GO  TO  129 


1  39 


NL-LIFT 


135 


This  page  is  left  blank  intentionally. 


WRITE  (IOUTP.949) 

c 

137 

CO  TO  129 

LIFT=LL 

LL=LIFT+1 

ITB=1 

TL(LIFT)=T(IT) 

IT=IT+1 

T(IT)=TL(LIFT) 

WRITE  <I0UTP,900> 

WRITE  (I0UTP,939> 

WRITE  (I0UTP,916> 

WRITE  (I0UTP.930) 

DO  140  1=1, MINP 

140 

WRITE  (I0UTP,931) 

WRITE  (I0UTP.902) 
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FS.  5ETC(1>,  T(IT),  TA,  LIFT 


LIFT, TL(LIFT) 

A,  B 

GLOAD,  CLOAD.  YWM,  TOPHI,  MINP 

XINP(I), YINP(I) 

WRITE  (I0UTP.902) 
C 

C  compute  pore  pressures  due  to  new  load.  Compute  imm   settlements, 
C  5ETI,  if  B.NE.  1.  Note  that  the  consol.  settlements,  5ETC  and  the 
C  ave.  degree  of  consol  mre    the  same  as  computed  at  time 
C  T(IT-1 >=TL(LIFT>. 
C 

C  Note  pore  pressures  due  to  the  load  addition  srt    neglected  in 
C  the  computation  of  1mm.  settlements.  Since  zero  swelling  is 
C  assumed,  negative  pore  pressures  after  load  application  MTe 
C  set  equal  to  zero.  Thismeans  that  negative  pore  pressures  due 
C  to  load  removal  are  considered  only  In  a  magnitude  equal  to 
C  the  not  dissipated  pore  pressures  jjust  before  load  removal. 
C 

IF  (IDEN(LIFT).  EG.  0)  GO  TO  76 

DO  77  1  =  1,  ISUM 

UA ( I ) =UU ( I ) 

77  CONTINUE 
00  TO  78 

76      CALL  PORE  (  XINP,  YINP,  MINP,  NS,  XT,  IEND,  YE,  MYE,  UA,  A,  B  > 

78  IF  (ISP.  EG  1)  CO  TO  511 

WRITE  (I0UTP.941)  FSI , SPECS(LIFT) , SPECU(LIFT) , IEND 

WRITE  (I0UTP.960)  TL(LIFT) , LIFT, FS,  FSI 

WRITE  (I0UTP,902) 
511  IF  (  (1.  -B).  LT.  0.  00001  )  goto  143 

CALL  SETL  ( UA, SETR I ,  IEND, KKK, MYE,  1 .  , FUP, FLO, KI AV ) 

AI  =  1.  /B 

CALL  SETL  (UA,  SETT,  IEND,  KKK,  MYE,  AI ,  FUP,  FLO,  KIAV ) 

do  141  1  =  1,  IEND 

SETR 1(1) =SETT ( I ) -SETR 1(1) 

IF  (SETRI(I).  CT.  SETI(D)  SETI ( I >=SETRI ( I ) 

SETT  (  I  )  =SET  I  (  I  )  +SETC  (  I  > 
141     CONTINUE 
C 
143     II-O 

DO  144  1  =  1,  IEND 

WRITE  (1)  SETI(I),SETC(I),  SETT(I),  UAVE(I) 

UAVE(I>=0. 

UAVED(I)=0. 

UAVEM(I)=0. 

DO  144  J=1,MYE 

11=11+1 

UT-UB (II) +UA (II) -UC (II) 

IF  (UT.  LT.  0.  )  UT«0. 

UAVE ( I ) =UAVE ( I ) +UT»SV ( J ) 


144 


-  137  - 
UB(II >-UT-UB( II ) 
UC ( 1 1 ) -UA (II) 
UD ( 1 1 > -UD ( 1 1 >  +UB (II) 
UAVED ( I ) -UAVED ( I >+UD( 1 1 >aSV( J ) 
UM( II )«UD(II )  +  (l.  /B-l.  )»UA(II) 
UAVEM ( I ) -UAVEM ( I ) +UM ( 1 1 ) *S V ( J > 
CONTINUE 
U-L-LIFT-1 

CALL  DISP  (UB,  3,  OMEGA,  PHI,  TD,  UAVE,  LLL, MYE,  IEND,  XT.SV) 
IF  (IVAR.EG  O)  GO  TO  244 
if  (IEND.  CT.  5)  goto  1444 
CALL  LAGR  (  XET,  UF ,  N,  1 ,  XT,  UAVE/  IEND  ) 
(  XET,  UE,  N,  1 ,  XT,  UAVEM,  IEND  ) 

(XET,  UF,  N,  N,  XT,  UAVE,  IEND) 

(  XET,  UE,  N,  N,  XT,  UAVEM,  IEND ) 

(UAVEM,  UAVE,  OMEOA,  PHI,  1,1,  OMED,  PHID,  IEND) 

(UE,  UF,  OMEGA,  PHI,  1,  2,  OMED,  PHID,  N) 

(UB,  1,  OMEGA,  PHI,  0.  ,  UAVE,  LIFT,  MYE,  IEND,  XT,  SV ) 


CALL  LAGR 

goto  1445 

444 

call  LINT 

call  LINT 

445 

CALL  COEF 

CALL  COEF 

>44 

CALL  DISP 

CO  TO  128 

!00     rewind  1 

writedOUTP,  5013) 
>013    format  ('Reached  end  of  file') 

REWIND  2 

OUTPUT  OF  RESULTS 

ft******************************************************** 

Write  title  for  output  of  results  of  the  consol.  process. 

WRITE  (I0UTP,«?01) 
WRITE  (I0UTP.950) 
IF  (ISP.  EQ.  1  )  GO  TD  217 
DO  218  1  =  1,  JND 
K«  JSP ( I ) 
18     XRP(I)«W*XE(K) 


Determine  indices  MXS( I ) ,  1-1,  NIM  and  matrix  RSP  which  is  a  sub 
natrix  of  matrix  R.  Matrix  RSP  is  needed  when  interpolation  between 
points  XT  is  done  to  get  the  information  required  at  points  XRP/W. 

IRE-0 

IRS-0 

K=l 

MMM«MXE(1) 

HT-MXT(l) 

DO  210  JJ=1,NIM 

HXS(JJ)=0 


JJ-1 

DO  211  1=1, MX 

IF  ( JSP  (K).  EG.  I)  GO  TO  214 

GO  TO  215 

DO  212  J-l.HT 

IRS=IRS+1 

IRE-IRE+1 

RSP(IRS)=R(IRE> 


-  138  - 

C 

MXS(JJ)-MXS( JJ>+1 

IF  (K.EQ  JND)  ©OTO  213 

K«K+1 
215     IF  (MMM  NE  I>  00  TO  21 1 

JJ=JJ+1 

MT-MXT(JJ) 

MMM«MMM+MXE( JJ) 
211     CONTINUE 
C 
C 

C  CASE  THAT  ISP=1 
C 
217     JND=IEND 

DO  21?  1=1, JND 
219     XRP(I)-W*XT(I) 
C 
213     WRITE  (I0UTP,951)  ( XRP ( I ) , 1=1 , JND ) 

WRITE  (I0UTP,900> 

DO  250  1=1, JND 
250     XRP(I)=XRP(I)/W 
C 
C 

MMM=2 

IF  (B.NE.l.)  MMM=4 

MT=MMM*JND 
C 

C  Read  UAVE, SETC  and  SETT,  given  at  points  XT  from  TAPE  1.  if 
C  ISP=1,  this  is  the  information  to  be  output   IF  ISP=0, 
C  perform  interpolation  using  matrix  R5P.  Outpiy  the 
C  information  and  store  it  on  TAPE  2  for  later  plots  for  times 
C  T(J),  J=1,IT.  Use  UA  and  UB  for  temporary  storage. 
C 

DO  220  J=l,  IT 

11  =  1 

DO  221  1  =  1,  IEND 

READ  (1)  AI,  UA(II  +  1  ),  AA,  UA<  II  > 
IF  (  (1.  -B).  LT.  O.  00001  )  GOTO  224 

UA(II+2)=AI 

UA(II+3)=AA 
224      II=II+MMM 
221     CONTINUE 

IF  (ISP.  EG.  1)  CO  TO  225 
C 

C  Interpolation  for  points  XRP(I)/W  by  means  of  matrix  multi- 
C  plication.  Information  for  points  XT  is  in  UA.   Interpolation 
C  for  points  XRP(I)/W  is  stored  in  UB 
C 

IUBE«0 

IUND=0 

IRND=0 

DO  216  JJ=1,NIM 

IUBS=IUBE+1 

IUBE= IUBE+MMM»MXT ( JJ ) 

IF  (MXS(JJ).  EQ.  0)  00  TO  216 

IUST=IUND+1 

I  UND= IUND+MMM*MXS  ( J  J  > 

IRST»IRND+1 

I  RND=  IRND-H1XT  (  JJ )  *MXS  ( JJ ) 

CALL    MPRD    (UA,  RSP,  UB,  MMM,  MXT(JJ),  MXS(  JJ),  IUBS,  IR5T,  IU5T) 


-  139  - 

216     CONTINUE 
CO  TO  226 

DEFINE  UB  FOR  CASE  OF  ISP«1 

225  DO  222  I«l,  fIT 

222  UB  (  I  )  «HJA  (  I  ) 

226  IF  (J  EQ.  1)  CO  TO  227 

IF  (T(J).NE.T(J-D)  CO  TO  22B 

227  WRITE  (I0UTP,952)  T(J) 

228  WRITE  (I0UTP,953)  T(J) 

DO  223  K=l, MMM 

WRITE  <IOUTP,931>  <UB  (  I  ) ,  I=K,  MT,  MMM  ) 

223  CONTINUE 

WRITE  (2)  (UB(I),  1  =  1, MT) 
220     CONTINUE 


REWIND  1 
REWIND  2 


PLOTTING  ROUTINE 

***************************************************** 


KEND=T(IT)/7.  +1.  001 

IF  (LND.  GT.  KEND)  LND=KEND 

Compute  the  reference  settlement  for  points  XRP  from  total 
settlements  5ETRT  at  points  XT. 

IFdSP.EQ.  0)  GO  TO  297 
DO  298  1  =  1,  IEND 
>98     SETR(I)=SETRT(I) 
CO  TO  299 

?97     IUBE=0 

IUND=0 

IRND=0 

DO  406  1  =  1,  NIM 

IUBS=IUBE-H 

IUBE=IUBE+MXT(I> 

IF  (MXS(I).EQ.  0)  CO  TO  406 

IUST=IUND+1 

IUND=IUND+MXS(I> 

IRST=IRND+1 

IRND=IRND+MXT< I )*MXS( I ) 

CALL  MPRD  (SETRT,  RSP.SETR,  1,  MXT<  I  > ,  MX5(  I  > ,  IUB5,  IRST,  IUST) 
06     CONTINUE 

99     DO  300  J«l.  UND 

js=(j-i>*mmm+i 


: WRITE  TITLE  FOR  J-TH  PLOT 


-   140 

X=XRP( J)»W 
WRITE    <IOUTP,901> 

WRITE    (IOUTP,  954)     X,  SETR  ( J  ) ,  SYMB  ( 1  ) ,  SYMB  (2  ) 
IF    (MMM.  EQ.  4)    WRITE    (IOUTP,  955)    SYMB  ( 3  )  -  SYMB  (  4  ) 
WRITE    ( IOUTP, 900) 
C 

REWIND    2 

READ    (2)     (UB(I>,  I-l.MT) 

C 

C  GENERATE  FIRST  LIN  TO  BE  PRINTED 

C 

LOUT=T(l )/7.  +0  1 

JT-2 

K=T(2>/7.  +0.  1 

DO  301  1=1. 76 

301  ROW(I)=STAR 

DO  302  1=6, 71, 5 

302  ROW(I)=GRID 
C 

JJ=US 

11=50.  ♦UB(JJ)  +  1.  5 
R0W(II)=SYMB(1  ) 
C 

DO  303  1=2,  MMM 

JJ=JJ+1 

11=50.  ♦UBC JJ)/SETR( J>  +  1.  5 

303  ROW(II)=SYMB(I ) 
C 

C  Write  first  line  and  clear  ROW(I)  afterwards. 

C 

WRITE  <I0UTP,957> 

WRITE ( IOUTP, 956)  LOUT, (ROW( I ), 1=1, 76) 

DO  304  1=2, 75 

304  ROW(I)=BLANK 
R0W(1)=STAR 
R0W(76)=STAR 
MK=MMM 

C 

C  Determine  the  following  to  be  printed. 

C 

DO  306  L=2, LND 

L0UT=L0UT+1 

IF(K.  EQ.  LOUT)  CO  TO  305 

WRITE  (IOUTP,  956)  LOUT,  (ROW( I ) ,  1  =  1, 76 ) 

CO  TO  306 

305  JT-JT+1 

IF  (JT.  CT.  IT)  JT=1 

K=T(JT)/7.  +0.  1 
C 
C  Read  data  from  TAPE  and  determine  symbols  to  be  printed 

C 

309     READ  (2)  (UB ( I ) , 1=1, MT ) 
JJ=JS 

IKK=MK-MMM+1 
11=50.  ♦UB(JJ)-»-l.  5 
R0W(II)=SYMB(1) 
KK(IKK)=II 
C 

DO  307  1=2,  MMM 
JJ=JJ+1 


141 


307 


IKK-IKK+1 

11-50.  •UB(JJ)/,SETR(J>  +  1 

ROW  ( 1 1  >  -SYMB  (  I  > 

KK(IKK)=II 

CONTINUE 


IF  <K  ME.  LOUT)  00  TO  310 

JT-JT+1 

K«T(JT)/7.  +0.  1 

MK-MK+MMM 

00  TO  309 


Print  the  L-th  line  and  BLANK  out  the  second  throuflh  75-th 
element. 
310     WRITE  (I0UTP.956)  LOUT, (ROW( I ) , I«l, 76) 

DO  308  1*1,  (IK 

II-KK(I) 
308     ROW(II >=BLANK 

R0W(1  )=STAR 

ROW (76) -STAR 

MK-MMM 
306     CONTINUE 


Generate  and  print  last 
DO  311  1  =  1,  76 
ROW(I)=STAR 
DO  312  1=6, 76, 5 
ROW(I)=GRID 
L0UT=L0UT+1 
WRITE  (I0UTP,956> 
CONTINUE 


line 


311 


12 


300 


LOUT, (ROW(I), 1=1, 76) 


IF  (NL.  NE.  NLS)  GOTO  10000 
GO  TO  100 


FORMAT  STATEMENTS 

******************************************* 


:91 
:92 
:93 
:94 


fOO 
N>1 
K>2 
>03 


>04 
>05 
>06 
>07 
'08 
>09 
'10 


FORMAT 

(1514) 

FORMAT 

(8F8.  3) 

FORMAT 

(4E10.  5) 

FORMAT 

(7A1) 

FORMAT 

(//////) 

FORMAT 

(1H1) 

FORMAT 

<//) 

FORMAT 

(1H  ,25x, 

1 

1H  .25xi 

2 

1H  ,25x, 

3 

1H  ,25x, 

4 

1H  ,  25x, 

5 

1H  ,  25x, 

FORMAT 

(1H  ,  10X, 

FORMAT 

(1H  ,  10X, 

FORMAT 

(1H  ,  10X, 

FORMAT 

(1H0,  10X, 

FORMAT 

(1H  .  lOX, 

FORMAT 

(1H  ,  10X, 

FORMAT 

(1H  .  lOx, 

'•  •  ',/ 

'•       CONSOLIDATION  PROBLEM      *',/ 
'*  »',/ 

'•      STEP  LOADING  &  SURCHARGE    *'#/ 
'#»»##♦»•»##♦####«»»»*»#»#»###♦##♦#♦  ' ) 

'THE  PORE  WATER  PRESSURES  ARE  COMPUTED  AT') 

'   YE/H   ',5flO.  3) 

'   XT/W   ',SflO.  3) 

'THE  PORE  PRESSURES  ARE  INTERPOLATED  AT') 

'   XE/W-   ',5fl0.  3) 

'ASSUMING  COLLOCATION  POLYNOMIALS  OF  DEGREE 

Xli  '  BETWEEN  THE  LIMITS   ',  f8.  3,  '  AND  ',  f 8.  3) 


U2 


911 
912 
913 


C 
C 


719 
619 

920 


820 


720 
921 


922 
926 


927 
928 
930 


931 
932 


1 

2 


914 


915 


815 
715 

916 

917 


918 
818 

919 

819 


2 
3 

4 


1 
2 


1 

2 


1 
2 

1 
2 
3 


1 
2 


1 
2 


1 
2 
3 
4 
5 
6 


1 
2 


FORMAT  (1HO.  lOx,  'HORIZONTAL  PORE  PRESSURES  ARE  COMPUTED  AT') 
FORMAT  <1H  ,  lOx.  '   X«   '»  5f  10.  3) 

FORMAT  <1H0,  10X, 'THE  SUBSOIL  IS  DESCRIBED  BY  THE  FOLLOWING'/ 
llx,  'parameter*  which  arc  given  for  the  upper  lager'/ 
1H  , lOX, 'IN  CASE  OF  STRATIFICATION'//) 


FORMAT  <1H  ,  lOx,  'TOTAL  THICKNESS   ',  'H«',fB.  3,  '   FEET   '/ 

1H  ,  lOx,  'reference  for  X-COORD  W  •  ',f8.  3,  '  FEET') 
FORMAT  <1H0,  10X,  'LAYER  INTERFACE  IS  ',f8.  3,  '  FT  BELOW  SURFACE', 

'LOWER/UPPER  PERMEABILITY,  RK=  ',f8.  3,  /, 

COEF.  OF.  CONSOLIDATION,  RC«=  ',f8  3/ 
INITIAL  VOID  RATIO,  REO«  ',f8.  3) 
COEF.  OF.  COMPRESS,  RAV«  ',fB.  3) 
COMPRESSION  INDEX,  RCC=  ',f8.  3/ 


1H  , 

1H  , 

1H  , 

(1H  , 

(1H  , 

.  lOx 

(1H  , 

1H  , 

<1H  , 


lOx, 
lOx, 
lOx, 
lOx, 
lOx, 


'LOWER /UPPER 
'LOWER /UPPER 
'LOWER /UPPER 
'LOWER /UP PER 


'LOWER/UPPER  RECOMPRESSION  INDEX  RROCL  ■= 
10X, 'SKEMPTON  PORE  PRESSURE  COEFFICIENTS 
10X,  '  A=  ',F5.  2,  '  AND  B=  ',F5.  2,  //) 
10X,  'DEGREE  OF  SATURATION  15  S=  ',F5.  3,  / 


',  f8. 
ARE', 


FORMAT 

FORMAT 

1H 

FORMAT 

FORMAT 

1H  , 10X, 'HENRY-S  CONSTANT  OF  GAS  SOLUBILITY  HC  ' 

1H  , lOx, 'INITL  PORE  GAS  PRESSURE  IS  PU= 
(1H  ,  10X,  'INITIAL  VOID  RATIO  «=  '  ,F6.  3) 
(1H  , 10X, 'INITIAL  COEFF.  OF  COMPRESSIBILITY 
,10x,E12.  4,  '  FT*FT  /LB.') 
(1H  ,  10X,  'THE  COMPRESSION  INDEX  IS  ■=   ',E12.  4,  / 

1H  ,  10X,  'RECOMPRESSION  INDEX/CC    ROC=  ',F8.  3) 
(1H  , 10X, 'INITIAL  EFFECTIVE  P  AND  PRECOMPRESSION ', 

1H  ,  10X,  'STRESSES  PC  AS  USED  IN  THE  COMPUTATIONS 

1H  ,  10X,  'V  IN  FT',  5X,  'P  IN  PSF',  4X,  'PC  IN  PSF  ' ) 
(1H 


3) 
/ 


FORMAT 

FORMAT 

1H 

FORMAT 

FORMAT 


',F7.  3, 
E12.  4, 

IS  AVO= 


PSF') 


FORMAT 
FORMAT 

FORMAT 


FORMAT 


10X,  F9.  3,  2F13.  2) 
(1H0,  10X,  'NOTE  -P(l)  AND  PC ( 1  )  MAY  HAVE  BEEN  CHANGED',/ 
10X, 'as  compared  to  input  values  to  avoid  over  flow 
10X, 'THE  INITIAL  PERMEABILITIES  ARE  IN',/ 
lOx,  'VERTICAL  DIRn.  KVO=   '.E12.4,  '   FT/DAY',/ 
lOx,   'HORIZONTAL  DIRN  KHO«=  ',E12.  4,  '  FT/DAY') 
10X, 'THE  FOLLOWING  COEFF.  OF  CONSOLIDATION',/ 


1H 
(1H 

1H 

1H 
<1H 

1H 


FORMAT 
FORMAT  (1H 


FORMAT 
FORMAT 


FORMAT 
FORMAT 
FORMAT 


1H 


10X, 'ARE  IN  PUT  AT  SPECIFIED  EFFECTIVE  STRES5ES', 
lH0,3x,  'EFF-STRESS(PSF)  ',  2x,  'V-COEF(FT«FT/DAY)  ', 
2x,  'EFF-STRES(PSF)  ',2x,  'H-COEF(FT*FT/DAY>  '  ) 
(1H  ,  7x,  f  10.  2,  7x,  E12.  4,  7x,  f  10.  2,  7x,E12.  4) 

10X,  'THE  SLOPES  OF  THE  E  Vs  LOG(K)-CURVES  ARE'./ 
1H  ,10x,  'IN  VERTICAL  DIRN,  SKV=   ',F8.  3,  / 
1H  ,  lOx,  'IN  HORI.  DIRN,  SKH=    ',F8.  3) 
(1H0, 10X, 'THE  DRAINAGE  CONDITIONS  ARE') 

'IMPEDED  DRAINAGE  AT  THE  BOTTOM  WITH',/ 

'VERT.  PERM/VERT.   IMPEDED  PERM  RKV-   ',F5.  2,  / 

'THICKNESS  OF  IMPEDED  LAYER,  HI«   ',F8.  3,  'FT') 

'FREE  DRAINAGE  AT  THE  BOTTOM') 

'NO  DRAINAGE  AT  THE  BOTTOM') 

'THE  LOAD  CHARACTERISTICS  ARE  GIVEN  BY 

'THE  UNIT  WEIGHT  GLOAD"   '»F7.  2,  '   PCF 

'THE  COHESION  ,  CLOAD-  '.FB.Z,  '    PSF'./ 

OF  THE  DRAINAGE  BLANKET  YWM-',f6.  2,  'FT 


<1H  , 

1H  , 

1H  , 

(1H  , 

(1H  , 

(1H  , 

1H  , 

1H  i 

.  lOx, 


10X, 
10X, 
10X. 
10X, 
10X, 
10X, 
10X, 
10X, 
'THICKNESS 


/ 
/ 


1H  ,10x,  'THE  TANGENT  OF  THE  ANGLE  ',/ 

1H  ,  10X,  'OF  INTERNAL  FRICTION  TGPHI*   ',F7.  4,  / 
1H  ,  10X,  'MINP=   ',13,  '  COOR  POINTS  XINP/YINP') 
FORMAT  (1H  ,  20X.F10.  2,  '  FEET  ',F10.  2,  '  FEET') 
format  (1H  , 10X, 'THE  AVERAGE  PORE  PRESSURES,  UAVER(I)',/ 
1H  , 10X, 'THE  CONSOLIDATION  SETTLEMENTS,  SETRC ( I ) 
1H  ,  10X,  'TOTAL  SETTLEMENTS, SETRTC I),  AT  XT(I)  ARE 


AND 
,  / 


THE 


143  - 


3 

IH 

.  10X, 

4 

'  FEET', 

933 

FORMAT 

(IH 

,  10*, 

934 

FORMAT 

(IH 

,  10X. 

1 

IH 

,  10X, 

2 

IH 

,  10X, 

3 

IH  ,  lOi.  E12.  4,  ' 

935 

FORMAT 

(1HO 

.  10X, 

1 

IH 

.  10X, 

936 

FORMAT 

(IH 

,  10X, 

937 

FORMAT 

(IH 

10X, 

1 

IH 

10X, 

938 

FORMAT 

(IH 

10X, 

939 

FORMAT 

(1H0 

10X, 

1 

IH 

10X, 

940 

FORMAT 

(1HO 

10X, 

1 

IH 

10X, 

640 

FORMAT 

(IH 

10X, 

1 

1H0 

10X, 

2 

IH 

10X, 

3 

IH  . 

10X, 

4 

IH  , 

10X, 

5 

IH  , 

10X, 

6 

IH  , 

10X, 

7 

IH  , 

10X, 

941 

FORMAT 

(  IH  , 

10X, 

1 

IH  , 

10X, 

Mt_ 

,0 

i  ra.   ji  / 

4  1  1 

<  ftV 

3 

IH  , 

10X, 

4 

IH  , 

10X, 

5 

IH  , 

10X, 

6 

IH  , 

10X, 

942 

FORMAT 

(1H0, 

10X, 

1 

IH  , 

10X, 

2 

IH  , 

10X, 

842 

FORMAT 

(IH  , 

10X, 

1 

IH  , 

10X, 

943 

FORMAT 

(IH  , 

10X, 

944 

FORMAT 

(IH  , 

10X, 

1 

IH  , 

10X, 

945 

FORMAT 

(IH  , 

'X(  ' 

946 

FORMAT 

(1H0, 

10X, 

1 

IH  , 

10X, 

947 

FORMAT 

(IH  , 

10X, 

948 

FORMAT 

(///, 

IH  , 

1 

IH  , 

10X, 

2 

IH  , 

10X, 

3 

IH  , 

10X, 

4 

1H0, 

10X, 

5 

IH  , 

10X, 

949 

FORMAT 

(///, 

IH  , 

1 

IH  , 

10X, 

2 

IH  , 

10X, 

3 

IH  . 

10X, 

4 

1H0, 

10X, 

5 

IH  . 

10X, 

?30 

FORMAT 

(1H0, 

lOx, 

1 

IH  , 

lOx, 

2 

IH  , 

10X, 

3 

1H0, 

10X, 

'XT  FEET', 4 X,  'UAVER  (PSF )  ' , 3X,  '5ETRC ' ,  / 
3X,  'SETRT  FEET') 
f7.  2,  4x,  f  12.  2,  4k,  f9.  3,  3x,  f9.  3) 
'COEFF  OF  CONSOL.  VERT  FLOW  15  CV«  ', / 
E12  4,  '  FEET**2/DAY',  / 

'COEF.  OF  CONSOL.  HOR I   FLOW  IS  CH«  ',/ 
FT**2/DAY' > 
'REFERENCE  LOAD',/ 
'♦###*#»***»*♦*  '  ) 

'THE  NUMBER  OF  LIFTS  IS  NL-  ',  13) 

'SINCE  ISP-1  TIMES  OF  LOAD  APPLICATION',/ 

'ARE  INPUT  TO  BE',  ///) 

'TLC.I2.  ')=  ',  F6  O,  '  DAYS') 

'LOAD  NO  ',13,  '  APPLIED  AT  TL=  '.F6.0,  'DAYS' 

'ft******************  '  ) 

'THE  AVAILABLE  CONSTRUCTION  TIME  IS  TA«=  ',  / 
F6. 0, '  DAYS   TA  IS  NOT  NEEDED  IF  NL«1') 
'PARAMETERS  USED  IN  THE  STABILITY  ANALYSIS', 
'DMAX=  ',  F8  3,  5X,  'DMIN-  ',FB.  3,  / 
'NARC=  ',  14,  'NRAD=  ',14,/ 

'DMAX,  DMIN  ARE  THE  MAX  AND  MIN  STEP  SIZES', 
'USED  IN  THE  SEARCH  PROCEDURE',/ 
'NARC=ONE-  HALF  THE  NUMBER  OF  SUB  ARCS',/, 
'NRAD=NUMBER', 'OF  RADII  USED  FOR  EACH  TRIAL 
'OF  ARCS') 

'THE  REQUIRED  SAFETY  FACTOR  IS  F5I«  ',F6.  3,  / 
'THE  SPECIFIED  PORTION  OF  SETLEMENT  IS',/ 

'  IF  95%  OF  THE 
'AT  THE  TIME  OF 


CENTER 


AVE  PORE  PRESSURE',/ 
APPLICATION  OF  THIS  LOAD', 


'HAVE  DISSIPATED  AT  ' 

'THIS  LIFT  IS  ASSUMED 

'THE  FACTOR  OF  SAFETY 

'DAYS  FOR  LIFT  ',  13,  ' 

'AS 

'FS 

'X= 


F6.  4,  '*',  12,  'POINTS 
TO  BE  THE  LAST  ONE' 
AT  TIME  T*=  ',F6.  0,  / 
IS  FS=  ',  F6.  3,  / 
COMPARED  TO  THE  REQU.  FSI«=  ',F6.  3) 
HAS  BEEN  OBTAINED  FOR  THE  ARC  WITH',/ 
,  F8.  2,  '  Y«  ',  F8.  2,  '  RADIU5=  ',  F8.  2,  ' 


/ 

XT 

/) 


IN  FT' ) 


'SINCE  FS.  LT. FSI,  TERMINATE  THE  PROGRAM ' ) 

'RESIDUAL  PORE  PRESSURES  AS  INPUT  IN  P5F',/ 

'YE(I)/H=',  12X,  11F9.  3) 

,  12,  ')/W=  ',  F8.  3,  4X,  11F9.  3) 

'RESIDUAL  PORE  PRESSURES  ARE  IN  PUT  AS',/ 

3X,  'X  (FEET)  ',3X,  'Y  (FEET )  ',  3X,  'UC  (P5F)') 

3F12.  3) 

10X,  'AT  ',  13,  '  OUT  OF  ',  13,  '  POINTS  XT',  / 

'AN  AVE  DEGREE  OF  CONSOL.  OF  95X',/ 

'HAS  COMPARED  TO  PORE  PRESSURES  AT  THE  TIME  T«  ',  / 

F6.  0,  '  DAYS  OF  LAST  LOAD  APPLICATION',/ 

'*♦#  THIS  LIFT  NO.   ',  13,  / 

'IS  THEREFORE  CONSIDERED  TO  BE  THE  LAST  ONE***',///) 

10X,  'EITHER  THE  FACTOR  OF  SAFETY,  FS=  ',F6.  3,  / 

'AND/OR  THE  SETTLEMENT,  SETC(l)-  ',  F6.  3,  'FEET ',  / 

'ARE  LESS  THAN  SPECIFIED  AT  TIME  T"  ',F6.0,  'DAYS',/ 

'WHICH  IS  GREATER  THAN  TA«  ',F6.  O,  'DAYS',/ 

'*#*  THIS  LIFT  NO  ',13,  '  IS,  THEREFORE',/ 

'CONSIDERED  TO  BE  THE  LAST  ONE***',///) 

'THE  CONSOL.  PROCESS',/ 

'«*****«*««*«***«****«',  //////, 

'THE  FOLLOWING  INFORMATION  IS  OUT  PUT',/ 
'UAVE(X(1)),UAVE(X(2)  ), ,  ',  / 
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4  1H  ,  10X,  '«  AVER  DECREES  OF  CONSOL.  WITH  RESPECT  TP  REF.  LC] 

5  IH  .  10X,  'SETC(XCl)  >,SETC(X(2>  ), ,  ',  / 

6  IH  .  10X,  '  =  CONSOL.  SETTLEMENTS',/ 

7  IH  ,  10X,  'SETKX(l)  ),  SETI(X(2>  ) ,  ',  / 

8  IH  , 10X, '«  IMMMEDIATE  SETTLEMENTS'./ 

9  IH  ,  10X,  'SETT(Xd)  ),8ETT(X(2)  ), ,  ',  / 

#  IH  ,  10X.  '»  CONSOLI.   ♦  IMMMEDIATE  SETTLEMENTS',/ 

1  1HO, 10X,  'LAST  TWO  LINE  ARE  ONLY  OUT  PUT',/ 

2  IH  ,  10X,  'IF  SOIL  IS  PARTIALLY  SATURATED  (B.  NE.  1.  )  ',  / 

3  1HO, 10X, 'THE  POINTS  X(I)  IN  FEET  ARE  AS  FOLLOWS',//) 

951  format  (2x,  10F8.  3> 

952  FORMAT  (/,1H  ,  10X,  rT*  ',F6.  0,  / 

1  IH  , 10X, 'DAYS  IS  THE  TIME  OF  LOAD  APPLICATION',/) 

953  FORMAT  (/,  IH  ,  10X,  'T=  ',  F6.  O,  'DAYS  ' ,  /  ) 

954  FORMAT  (1H0, 10X, 'AVE  DECREE  OF  CONSOL.  AND  SETTLEMENT',/ 

1  IH  ,  10X,  'CURVES  FOR  POINT  X=  ',F8.  2,  'FEET  FROM  CENTER  LINE 

2  IH  ,  10X,  'INTERVAL  BETWEEN  2  ORID  LINES.  EG.  10%',/ 

3  IH  ,  10X,  'ABSCISSA  NUMBERS  CIVE  THE  TIME  IN  WKS',/ 

4  IH  , 10X,  'THE  TOTAL  SETTL  DUE  TO  REFERENCE  LOAD  IS',/ 

5  IH  .  10X.E10.  3.  '  FEET',/ 

6  1H0,  10X.A1,  '  -CUREV=  AVE.  DECREE  OF  CONSOL.  ',/ 

7  IH  , 10X, 'RELATIVE  TO  THE  PORE  PRESS  DUE  TO  REF  LOAD',/ 

8  1H0,  10X.A1,  '  -CURVE=CONSOL.  SETTL.   IN  %  OF',/ 

9  IH  ,  10X,  'REF.  SETTLEMENT') 

955  FORMAT  ( IH  , 10X.A1.  '  -CURVE=IMMEDIATE  SETTLEMENTS  IN  X    OF',/ 

1  IH  ,  10X,  'THE  REFERENCE  SETTLEMENTS',/, 

2  IH  ,10X,A1,  '  -CURVE=TOTAL  SETTLEMENTS  IN  %    OF',/, 

3  IH  ,  10X,  'THE  REFERENCE  EHSETTLEMENT ' ,  / ) 
956      format  (IH  ,  i3, 76A1 ) 

957     FORMAT  (1H#,2X,  '0  0   0.1   0  2   0.3   0.4   0.5   0.6   0.7   0.8  ', 
1  '0.9   1.0   1.1   1.2   13   1.4   1.5',//) 

960  FORMAT  (1H0,  10X,  'THE  FACTOR  OF  SAFETY  AT  TIME  T«  '.F6.0,  /, 

1  IH  ,  10X,  'DAYS  FOR  LIFT  ',  13,  'WAS  .  CE.  F5=  ',F6.  3,  /, 

2  IH  ,  10X,  'AS  COMPARED  TO  THE  REQU.  FSI  =  ',F6.  3) 
962     format  (IH  ,  20x,  f 8  3,  12x,  f 8.  3,  12x,  f8.  3) 

194      format  (7A1) 

961  format  (IH  ,  lOx, 'THE  SHEAR  STRENGTH  CHARACTERISTICS  OF',/, 

1  IH  ,  10X,  'THE  SUB  SOIL  AS  USED  IN  THE  STABILITY  ANALYSIS  ARI 

2  1H0,  15x,  'DEPTH  (FT  )',  5x  ,  'COHESION  (PSF)  ',  5x  ,  'P-RATIO  '  ) 
10000    END 

subroutine  LINT  (  X,  Y,  Nl ,  M,  XX,  YY,  N) 

dimension  X ( 1 ) , Y( 1 ) , XX ( 1 ) ,  YY( 1 ) 
C  This  subroutine  interpolates  the  values  of  function  Y(X) 
C  from  the  known  YY(XX)  by  use  of  the  linear  interpolation. 
C  or  extrapolation. 
C 

11=0 

JJ=0 

NN-M-N1+1 

do  20  I=NN,  M 
11=11+1 

J=l 
C  Extrapolation  is  used  if  X( 1 1 ) . CT.  XX(N) 

if  (X(II ).  LT.  XX(N>  >  go  to  31 

Y(  I  >=YY(N)-KYY(N)-YY(N-1  >>»<X<II)-X(N>>/(XX<N>-XX(N-1>> 

go  to  20 
31       If  (X(  II  ).  CT.  XX(1  )  )  go  to  32 
C  Extrapolation  is  used  If  X(  1 1  > .  LT.  XX(  1  > 

1 1 1 1 "2 

Y(I)«YY(l)-(YY(iiii)-YY(l> )*(XX(l)-X(II))/(XX(iiii)-XX(l>) 


* 
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goto  20 

32      if  <X(II>.  GT.  XX(J>>  go  to  25 
C  Interpolation  li  used  If  XX(  1  > .  LT.  X<  1 1  > .  LT.  XX  (N> 
C  If  X(II)  is  viry  close  to  XX(J>  then  Y(I)«YY<J) 

if  (AB5(X<  II  >-XX(  JM.  CT.  O.  OOOOOOOl  >  go  to  2B 

YC I )-YYC J) 

go  to  20 
ZO        XY1-XXCU-1) 

YY1«YY(J-1 ) 

Yd )»YY1+(X( II )-XYl )*(YY(J)-YY1 )/(XX(J)-XYl) 
20      continue 

return 

end 
C  BEGIN  SUBROUTINE  INTEG 
C 

SUBROUTINE  INTEG  (ETA,  X  I , B, AR > 
C 

J  This  subroutine  computes  the  values  of  the  stress  integrals  if 
:  the  Integration  variable  becomes  larger  than  12. 

DIMENSION  AR(7) 

COMMON/  POAPI/  ALPHA ( 30 ),L 

PI =3  14159265358979 
ETAP=1.  +ETA 
ETAM=1.  -ETA 

DO  1  1  =  1,7 
1       AR(I)=0. 

a 

DO  2  1=1, L 

pq=l.  / 1 OOOOOOOOOOOOOOO 

AMX=ALPHAC1 )-XI 

IF  (ABS(AMX).  LT.  pq)  GO  TO  3 

AR(1  )=ARC1  )+PI-ATAN(ETAM/AMX)-ATAN(ETAP/'AMX) 

IF  (AMX.  LT.  O.  )  AR(1 >=AR( 1 )-2. *PI 

3  APX=ALPHA(I)+XI 

IF  (ABS(APX).  LT.  pq)  00  TO  4 

AR  (  1  > *AR ( 1 ) +P I -ATAN ( ETAM/ AP  X > -ATAN  <  ETAP /  AP  X ) 

IF  (APX.  LT.  0.  )  AR(l)=AR(l)-2.  *P  I 

4  SIAMX=SIN(AMX»B> 

# 

COAMX=COS(AMX*B> 
SIAPX=SIN(APX«B) 
COAPX=COS(APX«B) 

« 

DPM*1. /<ETAP«ETAP+AMX»AMX) 
DPP=1. /(ETAP*ETAP+APX*APX) 
DMM=1. /<ETAM*ETAM+AMX*AMX) 
DMP«1.  /(ETAM*ETAM+APX*APX> 

f 

SM1«DPM*(ETAP»SIAMX+AMX*C0AMX> 
CM1=DPM*(ETAP*C0AMX-AMX»SIAMX> 
SP1=DPP*(ETAP*SIAPX+APX*C0APX> 
CP1=DPP»(ETAP*C0APX-APX»SIAPX) 

f 

SM2-DMM* ( ETAM*S I AMX+AMX*COAMX ) 
CM2=DMM*(ETAM*C0AMX-AMX»SIAMX) 
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SP2«DMP»(ETAM»SIAPX+APX»C0APX) 

CP2-DMP* ( ETAM»COAPX-AP X*SI AP X ) 
C 

AR ( 2 ) «AR ( 2 ) +SM2+SP2 

AR(3)=AR(3>+SMl-»-SPl 

AR ( 4 ) «AR ( 4 ) +DPH» ( ETAF»SM1 +AMX»CM1 ) +DPP» ( ETAP*3P 1+APX*CP 1 ) 

AR  ( 3  > «AR ( 5 ) +CM2-CP2 

AR  ( 6  )  -A R  ( 6 )  ♦  C  fl  1  -C  P 1 

AR ( 7 ) *AR ( 7 ) +DPM* ( ETAP*CM1-AMX«5M1  >  +DPP* ( AP  X*SF 1-ETAP*CF 1 ) 
2       CONTINUE 

EXAP=EXP (-ETAP»B ) /2. 

EXAM=EXP ( -ETAM*B ) /2. 
C 

AR(l)-AR<l>/2. 

AR  ( 2 )  «=EX AM«AR  ( 2  )  *ETAM 

AR(3>-£XAP*AR(3> 

AR ( 4  > - ( EXAP*AR ( 4 ) +B*AR ( 3 ) ) «2.  *ETA 

AR ( 5 ) »EX AM»AR ( 3 ) *ETAM 

AR(6>=EXAP«AR(6) 

AR(7)«(EXAP»AR(7)+B»AR(6> )«2.  »ETA 

AR  ( 6 ) =AR ( 6 ) *ETAM 
C 

RETURN 

END 
C 
C  END  OF  SUBROUTINE  INTEG 

SUBROUTINE  COEF  (UAVD, UAVE, OMEGA, PHI , LI, IL, OMED, PHID, NN) 
C 

C  This  subroutine  determines  the  soil  parameters  for  the  case  that 
C  they  are  variable. 

C  If  LI«3,  the  difference  between  the  old  and  the  new  parameters 
C  PHI  and  OMEGA  are  also  computed  and  stored  in  PHID  and  OMED,  resp. 
C 

DIMENSION  UAVD( 1 ) , UAVE( 1 ) , OMEGA( 1 ) , PHI ( 1 ) ,  OMEDC 1 ) .  PHID< 1 ) 

DIMENSION  SVM(12),P(11),PC(11 ), PLOG ( 1 1 ) ,  AA( 1 ) , BB ( 1 ) 
C 

COMMON/  SACSE/  ROC,  ROCL,  5VM,  P,  PC,  PLOG,  PO,  PCO,  IAV,  IK,  ISAT,  AAV,  AAH 

COMMON/  SACOl/  AVO, KVO, KHO, EOPUS, PU, SKHM, SKVM, CCC, NNN, ICOEF 

COMMON/  SAC02/  PCV( 10) , CVIN( 10 ) , PCR ( 10 ) , CHINC 10 ) , ICV, KOUNT, HF 
C 

REAL  K,  KO,  KV,  KH,  KVO,  KHO 
C 

C  Statement  functions  for  the  computation  of  the  coeff.  of 
C  permeability.  CONK  Is  used,  when  K  Is  variable  and  AV  Is  const. 
C  VARK  Is  used,  when  K  and  AV  are  variable.  P5I  computes  the 
C  parameters  to  be  returned  to  the  calling  program. 
C 

CONK(KO, SKM)=KO*EXP(-SKM*DISU) 

VARK(KO, SKM)=K0»(PP/PQ)»»(-1.  aSKM) 

PS  I  (AAA,  K)«=ALPHG»K*AAA/AV 
C 

C  The  following  parameters  have  been  defined  in  program  SAND  and 
C  are  repeated  here. 

C  AAV=(1. +EO)/(GAMMAWATER»< DELTA  Y)*»2) 
C  AAH=(1. +EO)/(GAMMAWATER»( DELTA  H)**2) 
C  SKVM-CC/SKV  if  IAV=1,  SKVM=2. 3026«AV0/SKV  if  IAV-0 
C  SKHM=CC/SKH  if  IAV=1,  SKHM»=2.  3026«AV0/SKH  if  IAV=0 
C  AVO"  initial  coeff.  of  compressibility 
C  KVO,  KHO-  Initial  coeff.  in  vert,  and  horl.  dims. 
C  ALPHG  =g*s  factor. 
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IAV-0,  constant  AV-AVO.   IAV-1,  variable  AV 

IK-O,  const.   K-s   IK-1,  virlibli  K-s. 
NNN-no.  of  points  with  vtrt.  and  hori.  flow. 

kol/nt-o  if  the  subroutine  is  called  the  second  or  following  time 
KDUNT-i  if  the  subroutine  is  used  for  the  first  time 

ICOEF-1  if  IK-0  and  IAV-0  or  IAV-1 

ICOEF-2  if  IK-1  and  IAV-0 

ICOEF-3  if  IK-1  and  IAV-1 

ICOEF-4  if  K»(l.  +EO)/(QAMMAWATER*AV*DELTA  Y»»2>«CVIN  and 
K» ( 1 .  +EO ) / ( GAMMAWATER  *AV*DELTA  H»«2)-CHIN  *tw 
specified  at  ICV  effective  stresses  PCV  and  PCH  resp. 

ISAT-O  full  saturation!  ISAT-l  partial  saturation 

PO-  ave  present  overburden  pressure 

PCO-  ave  preconsol.  pressure 

DI3U-  UAVD-UAVC-  ave  dissipated  pore  pressure 

CCC-  O.  4343»compress ion  index 

COTU3-  EO*PU*( 1.  -S*(l.  -HC) >i  where  PU=lnitial  pore  gas  pressure, 

3-lnltlal  degree  of  saturation/  HC-Henrg 's  const. 
OrrcOA(I)-  (gas  factor*coef  f .  of  consol  ) /del  ta  M*«Z 
PHl(l)-(gas  factor*coef f .  of  consol . ) /del ta  Y*»2 
DMED(  I  )-d  if  f  erence  between  old  and  new  omega(I) 
PMIDC I )-dlf f erence  between  old  and  new  PHI(I) 

IF  (KOUNT.EQ.  0)  GO  TO  20 

ALPHG=1. 

IF  (IAV.  EG.  1)  PG=CCC/AVO 

Determine  OMEGA, PHI,  OMED  and  PHID  at  NN  points 

Determine  eff.  stresses  at  the  sum  of  the  present  overburden 
stress  PO  and  the  dissipated  pore  pressures  DI5U.  Determine 
then  the  soil  parameters  as  a  function  of  PO+DISU 

20      DO  3  1  =  1,  NN 
KK=ICOEF 

D I SU=UA VD ( I ) -U A VE ( I ) 
PP=PO+DISU 
AV=AV0 
KV-KVO 
KH-KHO 

IF  (KK.  EQ.  4)  GOTO  6 
IF  (IAV.  EQ.  0)  GO  TO  6 
IF  (PP.  GT.  PG)  GO  TO  31 
KK-1 
CO  TO  6 
1      AV-CCC/PP 

IF  (ISAT.  EQ.O)  GO  TO  60 
AUX=AV 

IF  (PP. LT. PCO)  AUX=AUX*ROC 

ALPHG-1.  /(I.  +EOPUS/(AUX»(PU+UAVE(I) )**2) ) 
bO      IF  (IL.  EG.  1  )  GO  TO  7 
IF  (HF.  EQ.  O.  )  RETURN 
( 

(PARAMETERS  FOR  HORIZONTAL  CASE 
( 

if  (KK.  eq.  1)  go  to  11 
if  (KK.  eq.  2)  goto  12 
If  (KK.  eq.  3)  goto  13 
go  to  14 
.2      KH-C  ONK ( KHO ,  SKHM ) 
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CO    TO    11 

13  KH«VARK(KHO.  SKHM) 
11  A-PSI (AAH,  KH> 

OO    TO    30 
C 

C  INTERPOLATE  BETWEEN  CHIN(I) 
C 

14  BB(l)«ALOG(PP) 

CALL  LAGR(BB.  AA,  1,  1,  PCH,  CHIN.  ICV) 
A-ALPHG«AA ( 1 ) 
30       IF  (LI.EQ  3>  0MED(NN+1-I)-0MEGA(NN+1-I)-A 
0MEGA(NN+1-I)=A 
©O  TO  5 
C 

C  PARAMETERS  FOR  VERTICAL  CASE 
C 

7  if  (KK.  eq.  1)  goto  1 

if  (KK.  eq.  2)  go  to  2 
if  (KK.  eq.  3)  go  to  3 
go  to  4 

2  KV=CONK(KVO.  5KVM ) 
©O  TO  1 

3  K V=VARK ( K  VO , SK VM ) 
1        A=PSI(AAV, KV> 

©0  TO  40 
C 

C  INTERPOLATE  BETWEEN  CVIN(I) 
C 
C 

4  BB(1)«AL0G(PP> 

CALL  LAGR  (BB,  AA,  1 ,  1 ,  PCV,  CVIN,  ICV  ) 

A«ALPHG»AA (  1  ) 
40      IF  (LI.EQ.  3)  PHID(I)=PHI(I)-A 

PHI(I)=A 
3       CONTINUE 
C 

RETURN 

END 
C  BEGIN  SUBROUTINE  FUNCT 
C 

SUBROUTINE  FUNCT  (THETA,  ETA,  K,  SIGX,  SIGY,  TAU) 
C 

C  This  subroutine  computes  the  values  of  the  integrands  for  the 
C  arguement  theta 
C 

COMMON/  POFUN/  Q( 316 ) , ETHST( 316) 
C 

TE*ETA»THETA 

ETE=EXP(TE) 

C«(ETHST(K>  +  1.  /ETHST(K) >/2. 

S=(ETHST(K)-1.  /ETHST(K) )/2. 

CTE»(ETE+1.  /ETE)/2. 

STE=(ETE-1.  /ETE)/2. 
C 

D=Q ( K ) / ( C»C+THETA«THETA  > 

FA«C+THETA*S 

FB=THETA*TE 

FC-THETA*C 

FD-TE*CTE 

FE«TE*STE 
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C 

:  EVALUATE  THE  INTEGRANDS 

™ 

SIGX=-D«(FA»(CTE+FE)-FC#(2.  *STE+FD >  ) 

SIGY=-D* ( FA« ( CTE-FE ) +FC»FD ) 

TAU-+D«(-FA*FD+FC#(CTE+FE) ) 

IF  (ETA.  EQ.  1.  )  RETURN 

AUX-2.  *Q(K)*CTE/ETHST(K) 

SIGX=SIGX+AUX 

SICY«=SICY+AUX 

RETURN 

END 

4 

I    END  OF  SUBROUTINE  FUNCT 

SUBROUTINE  PORE  (  X  INP,  YINP,  M,  NST,  CX,  I  X,  CY,  I Y,  U,  ABAR,  BBAR  ) 

# 

:  This  tubroutine  computes  the  itrcifti  within  a  compressible 

;  soil  layer  by  use  of  elastic  theory  for  plane  strain  conditions. 

:  and  a  symmetric  loading.  Polssons  ratio  is  O.  3  and  the  underlying 

:  stratum  is  perfectly  rough  and  rigid 

:  Pore  pressures  are    computed  from  a  knowledge  of  the  stresses  and 

:  the  pore  pressure  coeff.  A  and  B  called  herein  ABAR  and  BBAR. 

DIMENSION  XINPd  >.  YINP(l),  CX  (  1  > ,  CY(  1  ) ,  U(  1  ) ,  SX(220> 
DIMENSION  SY(220), TA(220>, QX(516),GY(516),QT  (516), 51(3) 
DIMENSION  SUMO),  R  (3) ,  TO) ,  DIFC3) ,  AR  (7)  /  SUMS  O  ) ,  ABSDO  ) 

COMMON/  SAPOD/  IOUTP, W, H, GLOAD, CLOAD, NARC. NRAD 
COMMON/  POAPI/  ALPHA (30 > ,  L 
COMMON/  POFUN/  QST( 516 ) , ETHST( 516 ) 

If  no  load  is  specified  (No.  of  input  points  M. LE. 1)  set  pore 
pressures  equal  to  zero  and  return. 

IF  (M.  GT.  1)  GO  TO  101 
DO  100  1  =  1,220 

100  U(I)=0 
RETURN 

Approximate  actual  load  by  NST  strips  of  const,  thickness  DST. 

101  CALL  APROX  ( XINP, YINP, M, NST, DST ) 
WRITE  (IOUTP, 94)  L 

DO  10  I-l.L 

WR I TE  ( IOUTP , 95 )  I , ALPHA ( I ) 
10      ALPHA(I)=ALPHA(I)/H 

Define  constants  used  in  the  stress  computation. 

DELTA=0.  0001 

DEL=0.  001 

DELT=DELTA 

PI«3. 14159265358979 

IMAX=512 

AINT=1.  /512. 

KEND=IMAX+1 

PMAX=NST 

PMAX=ABS(PMAX«PI/2.  ) 

UEND-12 

FAC=2. *GLOAD»DST/PI 
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ZETA-W/H 
IXIY«IX#IY 
BRAN-2. 
C 

C  Define  constant  for  port  pressure  determined  ion 

c 

CONST-O.  8660254* (ABAR-1.  /3.  )♦!.  /2 
C 
C 

C  SET  STRESSES  EQUAL  ZERO 
C 

DO  21  I»l,  IXIY 

SX(I>-=0 

SY(I)«=0. 
21      TA(I><=0. 
C 

IER-0 
C 

C  Initialize  the  numerical  integration  procedure 
C  Use  Simpsons  rule  if  XI. LT. BRAN 
C  Use  Filons  formula  if  XI.  GE.  BRAN 

C  Numerical  integration  is  done  between  0.0  and  REAL(JEND) 
C 

DO  5  ISTEP=1,  JEND 
C 

A- I STEP- 1 

B=ISTEP 

BA=1. 
C 

IF  (ISTEP.EQ.  2)  DELT=DEL 
C 

C  Compute  factors  repeatedly  used  in  suroutine  FUNCT 
C 

THETA=A-AINT 

DO  2  K= 1 , KEND 

THETA=THETA+AINT 

ETHST ( K ) =EXP ( THETA ) 

QST(K)=0. 
C 

DO  2  1  =  1,  L 

QI»ALPHA(I> 

AT=QI*THETA 

ABSAT«=ABS(AT) 

IF   (ABSAT.  LT.  0.  001  >  GO  TO  3 

GI«QI»SIN< ABSAT) /AT 
3       IF  (AT.  LT.  O.  )  QI—QI 
2       QST(K)»QST(K)-»-QI 
C 

C  Integrate  numerically  between  the  limits  A  and  B  and  store 

C  the  results  in  one  dimensional  arrays  SX, SY, TA 

C 

DO  5  J=l, IY 

ETO=CY(J) 

ETA=1.  -ETO 

DO  51  JQX=1,KEND 
51      QX(JQX)«:i.  E15 
C 

C  Evaluate  the  integrand  at  interval  limits  A  and  B 

c 

CALL  FUNCT  <  A,  ETA,  1,  QX  (  1  > ,  QY<  1  > ,  QT<  1  >  > 
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CALL    FUNCT    (B.  ETA,  KEND,  QX  (KEND  >,  QY( KEND  ).  QT( KEND  >  > 

DO  9  I«l. IX 
LL-(I-D»IY+J 
XI«CX(I >«ZETA 

C 

c 

C  INITIALIZE  INTEGRATION 
C 

DO  41  K«l« 3 
41      SI(K>«0. 

1 

XIA-XI»A 
XIB»XI»B 

5IXIA=5IN(XIA) 

SIXIB=SIN(XIB) 

COXIA=COS(XIA> 

COXIB=COS(XIB> 

IF  (XI.  LT.  BRAN)  CO  TO  1 

DIF( 1 )=QX (KEND >«SIX IB-OX ( 1 ) ♦SI  XI A 

DIF(2>=QY(KEND)«SIXIB-QY(1)*SIXIA 

DIF(3)»QT(1 >*COXIA-QT(KEND)*COXIB 

R(l )*GX(l)*COXIA+GX(KEND>»COXIB 

R(2)=GY(1 )*COXIA+QY(KEND)*COXIB 

R(3)«QT(1 )*SIXIA+GT(KEND)*SIXIB 

:  COMPUTE  THE  INTEGRAL  BY  INTERVAL  HALVING 

NHALF=1 
N=2 
AN=N 
HH=BA/AN 
XK=A-HH 
XINC*=2.  *HH 
DO  44  K=l,  3 
44      T(K>=0. 

Compute  the  values  of  the  integrands  if  not  get  computed  and 
store  them  in  QX(K) , GY(K) ,  QT(K ) 

IDEL«IMAX/NHALF 

IT=-IMAX/N+1 

DO  8  K=1,NHALF 

XK=XK+XINC 

IT«IT+IDEL 

p  q= 1 OOOOOOOOOOOOOOO . 

IF  (QX(IT).EQ.pq)  go  to  99 

go  to  96 

99       CALL  FUNCT  (  XK,  ETA,  IT,  OX  (  IT  > .  dY(  IT) ,  QT  (  IT  >  > 
96      XIX«XI*XK 

XIX«XI»XK 
COXIX=COS(XIX> 
T(l)«T(l)+QX(IT)*COXIX 
T(2)«T(2)+QY(IT)»C0XIX 
T(3)«=T(3)+QT(IT)*SIN(XIX> 
8       CONTINUE 

IF  (XI.  GE.  BRAN)  GO  TO  13 
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C  SIMPSON  RULE 
C 

HH"HH/3. 

DO  46  K«l. 3 

46  SUM(K)«HH*(R(K>+4.  *T(K> ) 
GO  TO  4 

C 

C  Filons  formula 
C 
C 
13      XIH«XI»HH 

XXIH«XI»XIH 

SIX-SIN(XIH) 

COX-COS(XIH) 

C«(SIX/XIH-C0X)*4. 

D«XIH+SIX*C0X-2.  «SIX*SIX/XIH 

E"l.  +C0X»C0X-2.  »SIX*COX/XIH 

DO  47  K=l,3 

47  SUM(K)  =  <D*DIF<K)+E-»R(K>+C*T(K) >/XXIH 
C 

C  CHECK  FOR  ACCRACY 

C  THE  END  RESULT  WAS  FOUND  TO  BE  LITTLE  AFFECTED  EVEN  WHEN  THI5 
C  ACCURACY  WAS  NOT  REACHED. 
C 
4       IF  (NHALF.  EG.  1)  GO  TO  16 

SUMS ( 1 >  =SX  <  LL ) +SUM ( 1 ) 

SUMS  ( 2 )  «=S  Y  ( LL  )  +SUM  ( 2 ) 

SUMS  ( 3  )  »=TA  ( LL )  +SUM  ( 3  ) 
C 

C  Accuracy  as  compared  to  the  value  of  the  Integral  between  A  and  5 
c 

DO  48  K=l, 3 

ABSD(K)«ABS(SUM(K)-SI(K) ) 

IF  (ABSD(K).  CT.  ABS (DELT*SUM(K ) ) )  GO  TO  16 

48  CONTINUE 
C 

IF  (ISTEP.EQ.  1)  GO  TO  17 
C 

C  ACCURACY   AS  COMPARED  TO  THE  MAXIMUM  LOAD  INTENSITY 
C 
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DO  49  K-=l, 3 

IF  (ABSD(K).CT (DELTA*PMAX > >  ©O  TO  16 

49  CONTINUE 
CO  TO  17 

C 

16  NHALF^N 
N-2*NHALF 

IF  (N  LE. IMAX)  ©O  TO  19 
IF  (IER. NE.  0)  CO  TO  191 
IER=1 

C    The  Error  Message  at  this  point  is  supressed  to  reduce  the 
C    volume  of  the  out  put. 

C   WRITE  ERROR  MESSAGE.  IF  N  GT.  IMAX 

C 

191      continue 

CO  TO  17 
C 

C  RENAME  FOR  NEXT  CHECK  OF  ACCURACY 
C 
19      DO  50  K=l,3 

SI(K)=SUM(K) 

50  R(K)=R(K)+2.  «T(K) 
©O  TO  6 

17  SX(LL)=SUMS(1 ) 
SY ( LL  > =SUMS ( 2 ) 
TA(LL)=SUMS(3) 

5       CONTINUE 

C  Stresses  in  X-  and  Y-  Dirn.  not  including  factor  FAC 
C 

DO  15  J»l. IY 

ETO=CY(J) 

ETA=1.  -ETO 

DO  15  1=1, IX 

XI=CX(I)*ZETA 

LL=(I-1)*IY+J 

IF  (ETA.  NE.  1.  )  GO  TO  30 
C 

C  Stresses  at  the  usrface  (ETA. EQ. 1 )  not  including 
<C  factor  FAC.  Use  modified  formula  for  stresses  at  the  surface. 
C 

SX  ( LL) «=SX  ( LL) -S Y ( LL  ) 

SY(LL>=0. 

DO  32  15=1, L 

ABSAL=ABS ( ALPHA (IS)) 

IF  ((XI/ABSAD-1.  )  33,34,32 

33  SY(LL)"SY(LL)-2.  *0.  7B5398163397448*ALPHA( 15 ) /ABSAL 

34  SY(LL)«SY(LL)-0.  785398163397448*ALPHA( IS ) /ABSAL 
,  32      CONTINUE 

SX(LL)=SX(LL)+SY(LL> 

TA(LL>=0. 

©0  TO  31 
C 

C  Stresses  below  the  surface  (ETA. LT.  1)  not  including 
C  factor  FAC 
C 
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C 
C 

c 
c 


30      CALL  INTEC  (ETA,  X  I ,  B.  AR  > 

SX ( LL  >  «SX ( LL ) -AR ( 1 ) +AR ( 2 ) - ( 3.  -ETA ) »AR ( 3 ) +AR ( 4 ) 
SY(LL>«SY(LL>-AR(1  >-AR(2)-(l.  +ETA  )*AR  (3  )-AR  (  4  ) 
TA ( LL ) «TA ( LL ) +AR ( 5 ) +AR ( 6 ) -AR ( 7 ) 

Stresses  in  X-  and  Y-  dim  and  principal  stresses 
Tension  Is  positive 


31       SSUM=CSX(LL)+SY(LL> > /2 
SDIF=(SX(LL>-SY(LL> >/2 
ROOT«SQRT(SDIF«SDIF+TA(LL)»TA(LL) ) 
SX(LL)=FAC»SX(LL> 
SY ( LL ) «FAC*SY ( LL ) 
TA(LL)-=FAC»TA(LL) 
S 1  -FACe  ( SSUfl-ROOT  ) 
S2=FAC» ( SSUM+ROOT ) 


C 
C 

C 

c 
c 
c 


Compute  pore  pressures  for 
polssons  ratio  of  0.9  using 
A  and  B.  herein  called  ABAR 
CONST  was  earlier  defined  as 


plane  strain  Conditions  with 
skemptons  pore  pressure  parameters 
and  BBAR 
CONST-0.  5*(ABAR-l/3)+l/2 


U ( LL ) =-BBAR* ( S2+ ( SI -S2 ) *CONST ) 
15      CONTINUE 

WRITE  (I0UTP,93) 


C 
C 
C 
C 


FORMAT  STATEMENTS 


93 
94 


1 

2 


FORMAT  (//////) 
FORMAT  (1H  ,  10X,  'THE  ACTUAL 
llx.  '  LOADS  OF  EG  INTNSTY 


LOAD  IS  APPROXIMATED  BY  ',13,/ 
WHICH  EXTEND  FROM  X=0  TO  ALPHA ( I ) 


95 


1H  , 10X,  'IF  ALPHA(I)  IS  NEGATIVE,  THIS  LOAD  IS  SUBTRACTED',// 
FORMAT  <1H  ,  15X,  'ALPHA(  ',  12,  '  )  =  ',F10.  3,  '  FEET') 


C 
C 
C 


C 
C 
C 

C 
C 
C 

C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


RETURN 
END 

END  OF   SUBROUTINE  PORE 
BEGIN  SUBROUTINE  DISP 

SUBROUTINE  DISP  (U,  LI. 


OMEGA,  PHI,  T,  UAVE,  LIFT.  MYE,  IEND,  XT,  SV ) 


This  subroutine  computes  the  pore  pressures  at  time  T  bg 
treating  the  consolidation  equation  as  an  eigenvalue 
prob lem 
U       Pore  pressures  to  be  output.  For  LI=5, 6  this  vector 

contains  the  additional  pore  pressures  for  the  new  load 
when  this  subroutine  Is  called. 
Load  identifier. 

vectors  A  and  B  for  the  load  addition, 
pore  pressures  due  to  the  stepwise 


LI 

LI»1 

LI«2 


of 

of 


Determination 

Determination 

const,  loads. 
LI«3   Determination  of 

load  application 
LI«5   First  LIFT  ,  first  use  of  DISP. 
ISP=1  Compute  and  print  the  pore  pressures  at  all  points  of 


vectors  A  and  B  for  times  between 
if  the  soil  parameters  are  variable. 
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the  solution  domain. 
ISP=0  Compute  only  the  average  pore  pressures  at  different 

depths  at  all  IEND  points. 
IVAR   Identifier  for  soil  parameters 
IVAR=0   Constant  soil  parameters 
IVAR=l   Variable  soil  parameters 
PHI      Vector  depending  on  the  soil 
OMEGA    vector  depending  on  the  soil 
T        Time 

LIFT     no.  of  vectors  A  and  B 
M        Program  numbering  system/  No. 
N        Program  numbering  system,  No. 
Storage  reservations  are  made  for  40 
6  step  loads. 


parameters 
parameters 


of  points 

of  points 

hor l zontal 


for  vert,  flow 
fot  H-flow. 


in  Vert.  Dirn. 
in  H-dlrn. 
points  and 


DIMENSION  U(l  >,  PHK1  >,  OMEGA  (1  ),  UAVE  (  1  ) ,  XT  (  1  ) ,  SV  (  1  ) 
DIMENSION  EIGV (10),  EIGX (40), AUX  (160),  XV ( 100 ) ,  XVI ( 100) 
DIMENSION  XH(1600),  XHM1600),  FHOOO),  F(200),  A (1200),  B(1200) 
DIMENSION  VJdl  >,  RJ(40),  RJJC20),  G(280>, UBAV(240),  UBE(20) 
DIMENSION  WK300) 

EQUIVALENCE  <G< 1 ) , A( 501 ) ) 

COMMON/  SAPOD/  IOUTP,  W,  H,  GLOAD,  CLOAD,  NARC,  NRAD 
COMMON/  SADI1/  LAYER, IBCV, MHE, M, N, IDC, NDR, I5UM, XET( 41 ) 
COMMON/  SADI2/  FIMPV,  RC,  RK,  C,  RO,  RE,  TA,  I5P,  IVAR 

ief=64 


LIM=LI 

IF  (LI.  LT.  5) 

IF  (LAYER.  LT. 


GO  TO  2 
3)  LAYER=2 


Call  MODAL  for 
inverse  of  the 
Hori.  flow 


determination  of  eigen  values,  modal  matrix  and 
modal  matrix  for  the  case  of  vertical  and 


CALL  MODAL  (LAYER,  IBCV,  M,  FIMPV,  RC,  RK,  0.  ,  H,  EIGV,  XV,  XVI,  AUX  > 
PAGE  60 

IF  (IDC.EQ. 
CALL  MODAL 
LIM=1 


1 )  GO  TO  1 

(1,  4,  N,  FIMPV,  RC,  RK,  RO,  RE,  EIGX,  XH,  XHI,  AUX) 


(PHI.  T,  EIGV,  IVAR,  IEND,  M,  F,  LI  ) 

1 )  GO  TO  3 

(OMEGA,  T,  EIGX,  IVAR,  1,  N,  FH,  LI  ) 


C  Determine  the  diagonal  matrices  F  and  FH 
C 

2  CALL  EFGEN 
IF  (IDC.  EG. 
CALL  EFGEN 

C 

C  BRANCH  DEPENDING  ON  THE  VALUE  OF  LIM 

C 

3  GO  TO  (4,  3,  6),  LIM 
C 

LIM=1 

DETERMINE  VECTORS  A  AND  B  FOR  THE  LIFT-TH  LOAD  ADDITION 

•ft***************************************************** 


Determination  of   VECTOR  B  for  the  LIFT-th  load  addition 


IB-(LIFT-1 )*M»IEND 


-  156  - 

IE-0 

DO  10  K=l,  IEND 

DO  11  1  =  1.  PI 

IA-CK-1 >#MYE+1 

II=I-M 

IB«IB+1 

IE-IE+1 

B(IB)=0. 

DO  12  J=1,M 

II«II+M 

IA=IA+1 
12      B(IB)=B(IB)+XVI (II )*U( IA) 

do  340  iief=l, ief 
340  B(IB)=B(IB)/F(IE) 

11  continue 

10      CONTINUE 
C 

IF  (IDC.  EQ.  1  )  CO  TO  13 
C  DETERMINE  VECTOR  A — HORIZONTAL  CASE 
C 

11=0 

LIN=(LIFT-1 )»N+1 

LIN2=LIFT*N 

do  121  1  =  1,  IEND 

UBB(I)=0. 

do  120  J=l, MYE 

11=11+1 

UBB ( I ) =UBB ( I >  +U ( 1 1 > *SV ( J ) 

120  continue 

121  continue 

call  LINT  (XET,  UBAV,  N,  LIN2,  XT,  UBB,  IEND) 
C  To  avoid  numerical  instability  put  UBAV(I)=0. 1  if  it  is  zero. 
C 

do  1210  I=LIN,  LIN2 

if  (ABS(UBAV(I  >  >.  LT.  0.  1  >  UBAV(I)=0.  1 
1210    continue 

IS=(LIFT-1 )»N 
DO  14  1=1, N 
IE=0 
II=I-N 
IS=IS+1 
A(IS)=0. 
IA=LIN2+1 
DO  15  J=  1 ,  N 
II=II+N 
IA=IA-1 
IE=IE+1 
15      A(IS)=A(IS)+XHI(II>*UBAV(IA> 
do  341  iief=l, ief 
341  A(IS)=A(IS)/FH(I) 

14      CONTINUE 
C 

13      IF  (ISP.  EG.  0)  RETURN 
C  LIM=2 

C  DETERMINE  THE  PORE  PRESSURES  AT  TIME  T  AT  XT( J) ,  J=l,  IEND 
C  *##»*»»*#*#*♦♦##*###**###*#♦♦#####»##»***«*♦*###♦♦»#♦### 

c 

5       NM=M 

III-MYE 

DO  50  1=1, ISUM 
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50  U<I)«0. 

DO    31    J*l.  IEND 


RJAVE=1. 

ID»( J-l )»M+1 

IE"( J-l >*N+1 
C    CONSIDER     INFLUENCE    OF    LIFT    LOADS 
C 

DO    33    K=1,LIFT 

IB»ID+M*IEND*(K-1 ) 

CALL   MAIiULP    (XV,  Fi  B,  VJ,  M,  IB/  ID) 
C 

C  BRANCH  IF  VERT  FLOW  ONLY 
C 


IF  (IDC.  EQ  1 )  CO  TO  34 
IB=1+N*(K-1 ) 

)  goto  54 

CALL  MAMULP  (  XH,  FH,  A,  R  J,  N,  IB,  1  ) 
do  73  IR=1,N 

RJ( IR)=RJ(IR)/UBAV(K»N+1-IR ) 
75      continue 

* 

DO  650  IR=1, N/2 
HOLD=RJ(IR) 
RJ(IR)=RJ(N-IR+1 ) 
RJCN-IR+1 )=HOLD 
650      continue 

)  Determine  the  average  pore  pressures  at  P1+1  points  in 

;  vertical  direction  at  XT(J).  Include  the  free  drainage  at 

the  upper  boundary.  The  result  after  LIFT  cycles  of  loop  33 
:  Is  returned  to  the  calling  program.  The  drainage  at  the 
:  lower  boundarg  is  considered  outside  loop  33. 
:         CALL  LAGR  ( XT, R JJ, IEND, 1 . XET, R J, N > 

call  LINT  (XT,  RJJ,  IEND,  IEND,  XET,  RJ,  N) 

i 

54      II=(J-1)*MYE+1 

U(II)=0. 

DO  37  1=1, n 

11=11+1 

IF  (IDC.  EQ.  1)  CO  TO  35 

RJAVE=RJJ(J) 

if  (RJAVE.  LT.  O.  )  RJAVE=0.  O 

©0  TO  57 
35      RJAVE=1. 

57      U(II)=U(II)+VJ(I)*RJAVE 
S3      CONTINUE 

IF  (IBCV.  EQ.  3)  GO  TO  38 

II=J*MYE 

U( 1 1 >=FIMPV»U( 1 1-1 ) 

38      IF  (ISP.EQ.  0)  GO  TO  39 
IF  (IDC.  EQ.  1)  GO  TO  60 

i  Output  the  pore  pressures  at  XT(J)  for  the  case  of  Vert+  Hor  flow 

WRITE  (I0UTP.94)  T,  XT(J) 
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GO  TO  62 
C 

C  Output  the   pore  pressures  at  XT(J)  for  the  case  of  Vert  flow  only 
C 

60  WRITE  (I0UTP.91)  T,  XT(J> 

62  II=(J-1)*MYE 
DO  61  1=1, MYE 
11=11+1 

61  WRITE  (I0UTP.92)  U(II) 
WRITE  (I0UTP.93) 

©0  TO  59 
C 

C  Compute  the  ave  pore  pressures  at  XT(J) 
C 
59       II=(J-1)»MYE 

UAVE(J>=0. 

DO  63  1  =  1,  MYE 

11=11+1 

63  UAVE< J)=UAVE( J >+U( 1 1 )»5V( I > 
C 

51       CONTINUE 

RETURN 
C 
C 

C  Determine  vectors  A  and  B  for  the  case  of  variable  soil  para- 
C  meters  and  times  between  load  applications  LIM=3 
C  *♦******♦»***#**»*•**»**♦♦♦* **************#*« 
C 

C  Determine  vector  B 
C 
6        II=IEND*M 

IB=0 

DO  20  K=l, LIFT 

DO  20  1=1.11 

IB=IB+1 

do  20  iief=l, ief 
20  B( IB)=B( IB)*F(I ) 

C 

IF  (IDC. EG  1 )  RETURN 
C 

C  DETERMINE  VECTOR  A 
C 

II=N 

IA=0 

DO  22  K=1.LIFT 

DO  22  1  =  1.  II 

IA=IA+1 

do  22  iief=l, ief 
22  A(IA)=A(IA)*FH(I ) 

RETURN 
C 

C  FORMAT  STATEMENTS 
C 

91  FORMAT  (////,  1H  ,  10X,  'T=  ',  F6.  O.  '  DAYS,  X/W=  ',  F8.  3,  / 
1     '  PORE  PRESSURES  IN  PSF-VERTICAL  FLOW  ONLY',//) 

92  FORMAT  (1H  .  1  OX,  1 1F10.  3) 

93  FORMAT  (///) 

94  FORMAT  (////,  1H  ,  10X,  'T=  ',F6.0,  '  DAYS  X/W  =  ',F8.3, 

1  '  PORE  PRESSURES  IN  PSF  DUE  TO  VERT  +  HOR I  FLOW',//) 

C 
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END 
C 

C  END  OF  SUBROUTINE  DISP 
C 

C  SUBROUTINE  SETL  BEGINS 
C 

SUBROUTINE  SETL  (U, SETTL,  IEND.  KKK,  MYE.  F,  FUP,  FLO, KIAV) 
C 

C  This  utbroutine  computes  consol.   (F=l  )  or  total  (F.OT.l) 
C  settlements  using  constant  (KIAV«1+IAV=1 >  or  variable  KIAV»2 
C  soil  parameters. 
c 

C  U       Vector  of  dissipated  pore  pressures  with  IEND*MYE 
C         elements. 

C  SVM     Modified  mathematical  molecule  for  Simpsons  or 
C         trapezoidal  formula  (considers  case  of  stratified 
C  soil  If  LAYER  GT.  2) 

C  SETTL   Vector  of  computed  settlements  with  IEND  elements 
C  IEND    No.  of  settlements 

C  KKK     No.  of  distinct  pore  pressures  in  the  upper  lager 
C  MYE     No.  of  distinct  pore  pressures  In  both  lagers 
C  F       Consol.  settlements  are  computed  If  F=1.0 
C         Total  settlements  are    Computed  If  F=l.  /B  where 
C         B=  Skempton  pore  pressure  coeff. 

C  FUP     Parameter  for  the  upper  lager  which  incorporates 
C         the  soil  coeff. 

C  FLO     Corresponding  parameter  for  the  lower  lager. 
C 

DIMENSION  U<1  ),  SETTLd  >,  SVM(  12) ,  P  ( 1 1  ) ,  PC  (  1 1  ) .  PLOG  ( 1 1  ) 
C 

COMMON/  SACSE/  ROC,  ROCL,  SVM,  P,  PC,  PLOG,  PO,  PCO,  IAV,  IK,  I5AT,  AAV,  AAR 
C 

ISE=ISE+1 
901      format  ('NO.  of  times  entered  SETL  =',I5> 
write  (I0UTP,901)  ISE 

R=ROC 

A=FUP 

II=-MYE 

JST=1 

JND=KKK 

USS=0 

DO  1  1  =  1,  IEND 
1       SETTL(I)=0. 
EC 
6       DO  2  1  =  1,  IEND 
II*II+MYE 
IU»II 
S=0. 
JS=JSS 


- 


DO  3  J=JST,  JND 

IU=IU+1 

JS=US+1 

GO  TO  (4, 5), KIAV 

Constant  soil  parameters  IAV»0  KIAV=1 

I       S=S+F»SVM(JS>»U(IU> 
GO  TO  3 
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C 

C  Variable  toil  parameters  IAV-1  KIAV«2 

c 

5        PP»P(J)+F*U( IU) 
C    if  the  current  effective  stress  at  some  point  becomes 
C    negative  then  it  is  put  as  P(j)  at  that  point. 
C    l.e  no  swelling  is  considered. 
c 

if  (PP.  LT.  P(J))  PP=P(J> 

IF(PP. CT. PC< J) )  GO  TO  7 

S«S+R*SVM ( JS ) *ALOG ( PP /P ( J ) ) 
C 

c 

CO  TO  3 
7        S-S+SVM(JS)<KALOG(PP/PC(J> )+R«PLOG(J) ) 
3        CONTINUE 

SETTL  ( I >=SETTL(I )+A*S 
2        CONTINUE 
C 

C  Consol.  of  the  lower  lager 
c 

IF  (JND.EQ.MYE)  RETURN 

A=FLO 

R=ROCL 

II=KKK-MYE-1 

JST=KKK 

JND=MYE 

JSS=KKK 

GO  TO  6 

END 
C 

C  END  OF  SETTL 
C  BEGIN  SUROUTINE  MAMULP 
C 

SUBROUTINE  MAMULP  ( A,  D,  B,  C,  N,  IS,  1 1  ) 
C 

C  This  subroutine  performs  the  matrix  multiplication 
C  (General  matrix  A)*(Dlagonal  matrix  D)*(Vector  B)  «  (Vector  C) 
C  All  matrices  are  stored  one  d imens ional ly  with  A  having  N*N 
C  elements  and  D> B, C  each  having  N  elements.  The  first  element 
C  of  B  and  D  are  B(IS)  and  D(II) 
C 

C  The  formula  for  the  I-th  element  of  C  is 
C  C(I)=SUM(K=1,  N>  of  A(I+(K-1)*N)*B(IS-1+K)*D(XI+K-1) 
C 

DIMENSION  A(l>,  B(l>,  C(1),D(1> 
C 

ief=64 

do  1  1  =  1, N 

IA=N*N+I 

IB=IS+N 

ID=II+N 

C(I)=0. 

DO  1  K=1,N 

IB=IB-1 

ID=ID-1 

IA=IA-N 
CC«A(IA>#B(IB) 

do  20  iief=l, lef 
20  cc=D(ID)»cc 
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C(I)=C(I >+cc 
1        CONTINUE 
RETURN 
END 
C 

C  END  OF  SUBROUTINE  MAttULP 
C  SUBROUTINES  BEGIN  HERE. 
C 


SUBROUTINE  OVERFLO  (J) 


RETURN 
END 

SUBROUTINE  HDIST  (UB,  XT,  IEND,  ICV,  CHIN,  DXSQ,  AAH,  MHE,  W,  XET,  IPOR,  HF 
*,rTYE,POR> 
C  Begin  subroutine   computes  the  horizontal  distance   from  the 
C  center  line  to  the  point 

C  where  the  pore  pressure  is  O.  IX  of  the  maximum  pore 

C  pressure  under  the  embankment.  This  Is  taken  to  be  the  Hori.  drainage 
C  distance.  This  subroutine  will  be  active  only  once, 
dimension  UB ( 1 ) ,  XT( 1 ) , CHIN( 1 ) ,  XET< 1 ) 
if  (HF.  eq.  0  )  goto  lOO 
if  (IPDR.eq.  1)  goto  lOO 
C  Find  maximum  pore  pressure 
do  50  1  =  1, IEND 

if  (umax.  It.  UB(  (i-1  >*MYE+1  >  >  uma x=UB < ( 1-1 )*!"1YE+1 ) 
50      continue 

umin=umax-»0.  001 
i  =  l 
60      if  (UB( (i-1 >*MYE+1 ).  It.  umin)  goto  65 
1=1+1 

if  (i.  It.  (IEND+1))  goto  60 

POR  =  l.  •Ml.  -XT(  IEND-1  )/rXT(  IEND)  )*(UB(  (IEND-1  )«HYE+1  >-umin)/(UB(  ( 
*IEND-2)*MYE-H  )-UB( (IEND-1 )«MYE+1) ) 
goto  70 
65     FOR=(XT( 1-1 )+(XT( 1 )-XT( i-1) )*(UB( ( 1-2)*MYE+1 >-umln>/(UB( ( 

li-2)*MYE-H  )-UB( ( i-1 >»MYE+1 ) ) )/XT( IEND) 
70      IP0R=1 

F 

C  Redefine  horizontal  grid  points  and  the  related  parameters 

C  using  new  horizontal  drainage  distance. 

C 

do  529  1  =  1,  ICV 

CHIN( I )=CHIN( I )»DXSQ 

529  continue 
AAH=AAH*DXSQ 
A I  "MHE- 1. 

DHX=POR*XT( IEND)*W/AI 
do  25  I«=1,MHE-1 

XET( I )=POR»( 1-1 )»XT( IEND)/AI 
25      continue 

DXSQ=DHX*DHX 
AAH=AAH/DXSQ 
do  530  i=l, ICV 
CHIN(i)«CHIN(i)/DXSQ 

530  continue 

write  (IATP, 778)P0R 
77B     format  ('NEW  POR=',flO.  5) 
100       return 
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end 
C  End  of  tubroutine  HDIST 

SUBROUTINE  APROX  (X.Y.MN,  N,  D) 
C 

C  This  tubroutine  approximates  the  actual  load  by  N  strips  of 
C  constant  thickness  V 
C 

DIMENSION  X(l  ),  Y(  1  ),  XA(25),  YA(23> 

COMMON/  POAPI/  ALPHA ( 30)/ L 
C 

c 

C  DETERMINE  MAX  VALUE  OF  Y(l) 
C 

M^MN 

YMAX=Y(1 ) 

DO  1  1=2, M 

IF  (Yd  ).  GT.  YMAX)  YMAX=Y(I) 

1  CONTINUE 
C 

C  Initiate  first  step  starting  with  X(M)  and  Y(M) 
C 

AN=N 

D=YMAX/AN 

L=l 

H=Y(M) 

XX=X(M) 

XA<1 )=0. 
C 

C  Compute  the  portion  between  two  horizontal  lines  with  distance  D 
C 

2  YA ( 1  )  =H 
K=2 

XA(K)=XX 
YA ( K ) =H 
H=H+D 

C 

C  If  statement  because  of  possible  truncation  error 

C 

IF  (ABS(H-YMAX).  LT.  0.  001  )  H=YMAX 

3  MM=M-1 

IF  (MM. EQ  0)  GO  TO  4 

XX=(X(M)-X(MM) )*(H-Y(MM) ) 
C         IF  (ABS(Y(M)-Y(MM)  ).  LT.  0.  01  )  J=l 

IF  (ABS(Y(M)-Y(MM) ).  LT.  0.  01 )  CALL  OVERFLO  (J) 

IF  (ABS(Y(M)-Y(MM)  ).  LT.  O.  01)  GO  TO  61 

XX=XX/(Y(M)-Y(MM) > 
C 

C  If  the  denominator  approaches  zero>  J  is  set  equal  to  1 
C 
61      IF  (J.  NE.  1)  GO  TO  5 
6       K=K+1 

J=0 

XA(K)=X(MM) 

YA(K)=Y(MM) 

M=MM 

GO  TO  3 
S        XX=XX+X(MM) 

IF  (ABS(XX-X(MM)  ).  LT.  0.  001)  GO  TO  8 

IF  (XX.  LT.  X(MM)  )  GO  TO  6 

MM=M 
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8 
C 
9 


4 


CO  TO  9 

M=MM 

K=K+1 

XA(K)«=XX 

YA  ( K  )  «=H 

XA(K+1 )=0 

YA(K+1  >«=H 

A«=0. 

DO  10  1=1, 

K 

J=I  +  1 

A»A+XA( I )*YA( J)-YA( I >*XA( J) 

CONTINUE 

10 

c 

C  Determine  width  of  constant  load  equivalent  to  portion  between 

C  two  horizontal  lines  with  distance  D 

C  ALPHA  is  negative  if  this  portion  is  to  be  subtracted 

ALPHA(L>=A/(2  *ABS(D) ) 

IF  (L.  EQ.  N)  GO  TO  11 
13       IF  ( ALPHA ( L)  EQ  O.  )  L=L-1 

IF  (MM  EQ  0)  GO  TO  12 

L=L+1 

GO  TO  2 

11  IF  (YTIAX.LE.YU))  GO  TO  12 
D=-l.  »D 

GO  TO  13 

12  D=ABS(D) 
RETURN 
END 

C 

c 
c 
c 
c 

C  SUBROUTINE  DETFS 

SUBROUTINE  DETFS  ( XC, YC, R,  XINP,  YINP,  MINP,  MX, MYE, SU, FS > 
C 

C  This  subroutine  determines  the  factor  of  safety  against  failure 
C  along  a  circular  mtc    by  taking  the  ratio  of  the  resisting  and 
C  driving  moments  about  the  center  of  the  arc.  Shear    strengths 
C  along  that  part  of  the  arc,  which  passes  through  the  subsoil 
C  are  obtained  by  Interpolating  between  the  elements  of  vector  SU. 
C  This  Is  an  analysis  In  terms  of  TOTAL  5TRE55E5. 
C 

DIMENSION  XINP(l),  YINPU  ) ,  SU(  1  ) ,  XS(22  ) ,  YS(22) ,  X  (2  ) 
DIMENSION  WWW (2),  XAUX(IO),  YAUX(IO),  SINUS (2) , C05IN(2) 

REAL  MD.MR 

COMMON/  INDET/  RH0U9) ,  TAUU9  ) ,  PSI  (19  > 

COMMON/  SAPOD/  IOUTP, W, H, GLOAD, CLOAD, NARC, NRAD 

COMMON/  SADET/  XSTAB ( 51 > , YSTAB (1 1 > , DX,  DY,  YWM,  TGPHI 

C 

C  STATEMENT  FUNCTIONS 

C 

FUNA(A, B)   =(XC+A*AA)/B 
FUNB(B)     =AB*AB+(RX-AA«AA>/B 
FUNCCA,  B,C)=A+B*(C-A> 

C 

C  The  parameters  have  the  following  significance 
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C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 

c 
c 


c 

c 
c 


XC. YC  coord  of  the  center  of  the  arc. 

R      radius  of  the  arc 

XINP.YINP   Coord  of  the  point*  describing  the  X-section  of 

the  embankment. 
MINP   No   of  points  XINP/YINP 

nx     No.  of  equally  spaced  points  in  X-dirn 
MYE    No.  of  equally  spaced  points  in  Y-dirn. 
SU     vector  of  shear  strengths  with  nx*riYC  elements 
ra     factor  of  safety 
RMOCl)  Slope  of  the  line  connecting  XlNr < I ) /YlNr < i )    and 

XINrCI-H>/YINT(I-H> 
PSI(I)  YINP  value  of  the  above  line  for  XINP^O. 
TAU(I)  TAUCI  )  =  1.  +RHOCI  >-»RHO<  I  ) 
GLOAD   unit  weight  of  the  embankment  soil 
cldad   Shear  strength  of  the  embankment  soil 
xstab   nx  equally  spaced  points  in  x-dirn. 
ystab   HYE  equally  space  points  in  Y-dlrn. 
DX.DY   Intervals  in  X-  and  Y-dlrn. 
NARC    One-half  no.  of  subarcs  within  subsoil 


ANARC=2*NARC 

MXM=MX-2 

RR=R*R 

XX=XC»XC 

RX=RR-XX 

YY=YC*YC 

LAST=0 

POINTS  OF  INTERSECTION  BETWEEN  ARC  AND  SURFACE 

AA=SQRT(RR-YY) 


XS(1 )=XC-AA 

XG=XC+AA 

IF  (XG.  GE.  XINP(MINP)  ) 


LAST=1 


C 
C 
C 
C 

C 


POINT  OF  INTERSECTION  BETWEEN  ARC  AND  EMBANKMENT  SURFACE 

1=0 

J=2 

1  =  1+1 

AA=YC-PSI(I ) 

AB=FUNA(RHO(I),  TAUCI  ) ) 

AA=FUNB ( TAU ( I ) ) 

IF  (AA.  LT.  O.  )  CO  TO  1 

AA=SGRT(AA) 

XT=AB-AA 

IF  (XT.  GE.  XINP(I  +  1>>  GO  TO  1 

XS(2)=XT 

YS(2)=XT*RH0( I )+PSI( I ) 

Resisting  moment  MR  due  to  the  arc  between  XS( 1 ) /YS( 1 )=0.  and 
XS(2)/YS<2)  within  the  embankment.  Driving  moment  MD  due  to 
the  segment  between  XS(l)/0.  and  X5C2)  /rY5(2) . 

BETA1=0.  3»ASIN(YC/R> 
BETA2=0. 5*ASIN( (YC-YS(2) ) /R ) 
MR=2. *RR»CL0AD»(BETA1-BETA2> 
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A«XS(1 >-X5<2) 

A-SQRT ( A»A+ YS  ( 2  >  •  YS  ( 2  )  ) 

MD-(A*A«A»C0S(BETA1+BETA2> ) /2 

IF  (LAST.  EQ  0)  CO  TO  2 
C 

C  THE  POINTS  XS/YS  ARE  EQUAL  TO  THE  POINT  S  XINP/YINP 
C 

1-1*1 

DO  3  K=I. MINP 

J-J+l 

XS( J)-XINP(K) 
3  YS( J)-YINP(K) 
31       LAST=J 

CO  TO  7 
C 

C  Determine  the  second  point  of  intersection  between  the  arc  and  the 
C  embankment  surface.  Store  all  points  in  X3/Y5  which  lie  between 
C  this  point  and  the  point  X5(2)/Y5(2). 
c 

2        XT-AB+AA 

IF  (XT.  LE.  XINPd  +  1  )  )  CO  TO  4 

5  1=1+1 
J-J+l 

XS( J)=XINP(I ) 

YS( J)=YINP( I ) 

IF  (I.  EQ.  MINP)  GO  TO  31 

IF  (XINP(  1  +  1  >  GT.  XG>  GO  TO  6 

IF  (YINPd  +  1  ).  LT.  YC)  GO  TO  5 

6  AA=YC-PSI(I) 
AB=FUNA(RHO( I ),  TAU( I ) ) 
AA=FUNB ( TAU (  I  ) ) 
AA=SQRT(AA) 

* 

GO  TO  2 
A  J=J+1 

XS(J)=XT 
YS(J)=XT»RHO(I)+PSI(I) 

Resisting  and  driving  moments  due  to  the  arc  and  the  segment 
between  the  points  XS(J)/YS(J)  and  XG/O 

BETA2=0.  5*ASIN( (YC-YS(J)  ) /R ) 

LAST-J+1 

XS(LAST)=XG 

YS(LAST>«=0. 

MR-MR+2.  *RR*CL0AD*(BETA1-BETA2) 

A=XG-XS(J) 

A=SQRT(A»A+YS( J)*Y5( J) ) 

MD=MD-(A*A»A*C0S(BETA1+BETA2> )/2. 

!  DRIVING  MOMENTS  DUE  TO  TRIANGLES  WITH  ONE  APEX  AT  X5(l)/0. 

XX«3. »XC-XS(1 ) 
DO  8  1-3, LAST 
J=I-1 

A=  XS ( 1 > ♦ ( YS ( I > - YS ( J > ) -XS ( J ) « YS ( I ) +XS ( I ) * YS ( J ) 
MD=MD+ ( XX-XS ( J ) -XS ( I ) ) *A 
8       CONTINUE 

I  RESISTING  MOMENT  DUE  TO  THE  PART  OF  THE  ARC  WHICH  PASSES  THROUGH 
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C  TH  SUBSOIL 
C 

IF  (H  EQ  O  )  CO  TO  1O0 

IF  (MYE. EQ  1)  GO  TO  20 
C 

C  Resisting  moment  along  tubtrct  In  the  subsoil   The  shear 
C  strengths  along  the  2*NARC )  subarcs  mrt    assumed  const  and 
C  obtained  bg  linear  interpolation  between  the  appropriate 
C  values  of  5U 
C 

DARC=(3  1415727-4.  «BETA1 ) /ANARC 

RARC=RR*DARC 

BETA=2. *BETAl-DARC/2. 

DO  9  L=l, NARC 

BETA=BETA+DARC 

A=R*COS(BETA) 

X(l )=XC-A 

X(2)=XC+A 

A=R»SIN(BETA)-YC 

AJ=A/DY+1. 

J=AJ 

FY=(A-YSTAB< J) ) /DY 
C 

DO  10  K=l,  2 

AII=X(K)/DX 

I=AII 

IF  (I. LE  MXM)  CO  TO  11 
C 

C  Midpoint  of  the  subarc  lies  outside  the  domain  for  which 
C  SU-s  are  specified.   Interpolation  Is  done  in  Y-dirn  only 
C  between  the  values  SU(MX« (MYE-1 )+l )  through  SU  <nx*MYE). 
C 

IJ=J+(MX-1 >»MYE 

JJ=IJ+1 

AA=SU(IJ) 

AB=SU(JJ) 

CO  TO  12 
C 

C  Interpolation  for  the  midpoint  of  the  subarc.  Two  linear 
C  Interpolation  are  performed  in  X-dlrn;  One  linear  lnterp- 
C  olatlon  is  performed  in  Y-dirn  between  the  values  obtained. 
C 

11  IJ=J+I»MYE 
JJ=IJ+MYE 

1  =  1  +  1 

FX=(X(K)-XSTAB(I) ) /DX 

AA=FUNC(SU(IJ),FX,  SU(JJ) ) 

IJ=IJ+1 

JJ=JJ+1 

AB=FUNC(SU( IJ),  FX.  SU(JJ)  ) 

12  MR=MR+RARC«FUNC(AA,  FY,  AB> 
10      CONTINUE 

DM=MD»GL0AD/6. 
9        CONTINUE 

GO  TO  100 
20      RARC=RR»<3.  1413927-4.  «BETA1  ) 
MR=MR+SU(1)*RARC 
C 

C    Factor  of  safety. 
C 


c 
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lOO     MD=MD*GLOAD/6. 

C  IF  THERE  IS  AN  OVERFLOW  CONDITION,  J  IS  SET  .  EQ   1  AND 

C  FS  IS  SET   EQ   1.  OE50 

C 

UJJ-O 

IF  (MD  LT.  0.  00000000000000001 )  CALL  OVERFLO  ( J J J ) 

IF  (MD  LT.  0  00000000000000001 )  CO  TO  111 

FS=MR/MD 
111      IF  (JJJ.NE  1)  CO  TO  40 

FS=100 

JJJ=0 

RETURN 
C 

C  Determination  of  the  resisting  moment  due  to  friction 
C 

40  IF  (YWM  EG  0.  )  RETURN 
IF  (FS.  LT.  O.  0001  )  FS=1. 
FAC=TCPHI/FS 

RMR=r1R 

K0UNT=1 

XAUX( 1 >=XS(1 ) 

YAUXd  )=0 

AB=YC-YWM 

AB=SQRT(RR-AB*AB ) 

XAUX(2)=XC-AB 

YAUX(2)=YWM 

IF  (XAUX(2).  GE.  XS<2>  )   GO  TO  41 

XAUX(2)=XS(2> 

YAUX(2)=YS(2) 

41  BETA2=0. 3-»ASIN( (YC-YAUX(2) ) /R ) 
XAUX(3)=XAUX(2> 

K=3 
1  =  1 

43  1=1+1 

42  IF  (XAUX(K)-XINP( I ) )  44,45,43 
45      YAUX(K)=YINP< I > 

GO  TO  46 

44  YAUX(K)=RHO( 1-1 )»XAUX (K J+PSI ( 1-1 ) 
46     K=K+1 

IF  (XAUX(l). LE. XINP(I) )  GO  TO  47 
XAUX(K)=XINP( I ) 
YAUX(K>=YINP(I ) 
1  =  1+1 
GO  TO  46 

47  XAUX(K)=XAUX(1) 
YAUX(K)=RH0(I-1)*XAUX(1 )+PSI(I-l ) 
XAUX(K+1)=XAUX(1 ) 

YAUX(K+1 )=YAUX(1 ) 

WW=0. 

DO  48  J=1,K 

L=J+1 

WW=WW-XAUX ( J ) »YAUX ( L ) +YAUX ( J ) *XAUX ( L ) 

48  CONTINUE 

WWW ( KOUNT ) =WW*GL0AD/2. 
AA=XAUX(1)-XAUX(2) 
BB=YAUX(2)-YAUX(1 ) 
CC-SQRT ( AA*AA+BB*BB ) 
SINUS ( KOUNT >=BB/CC 
COSIN ( KOUNT ) =AA/CC 
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RMR-RMR-2.  »RR»CLOAD* ( BETA1-BETA2 ) 

IF    (KOUNT.  EQ    2)    GO    TO    49 

IF  (XS(LAST).  EQ  XINP(MINP)  )  00  TO  49 

KOUNT- 2 

XAUXd  )«=XC+AB 

YAUXd  )«=YWM 

IF  (XAUXd  ).  LE  XS(LAST-1  )  )  00  TO  SO 

XAUXd  >=XS(LAST-1  ) 

YAUXd  >»YS(LAST-1) 

50  BETA2=0  5»A5IN( (YC-YAUXd ) ) /R ) 
XAUX(2)=XS(LAST> 

YAUX(2)=0 

XAUX(3)=XAUX(2) 

K=3 

CO  TO  42 
C  ITERATION  FOR  THE  CORRECT  FACTOR  SAFETY 
C 
49      MR=RMR 

DO  51  I=1,K0UNT 

MR«MR+FAC*WWW ( KOUNT )  »R  /  ( COS IN ( KOUNT ) +FAC*5 INU5 ( KOUNT ) ) 

51  CONTINUE 
FSOLD=FS 
FS*MR/MD 

IF  (ABS(FS-FSOLD).  LT.  O.  001  )  RETURN 

FAC=TOPHI/FS 

GO  TO  49 

END 
C  END  OF  SUBROUTINE  DETFS 
C 

C  BEGIN  SUBROUTINE  GAIN 
C 

SUBROUTINE  GAIN  (UA,  R,  SU,  MYE,  MXT,  MXE,  MX,  NIM,  CO,  CP,  1 1 1  ) 
C 

C  This  subroutine  determines  the  shear  strengths  at  MX*MYE  points 
C  XE/YE  from  a  knowledge  of  the  initial  shear  strengths  CO  and 
C  the  C/PBar=CP-ratios 
C 

C  UA    Dissipated  pore  pressures  at  XT/YE 

C  R     Auxiliary  matrix  for  the  computation  of  the  dissipated  pore 
C       pressures  at  XT/YE  from  those  at  XT/YE 

C  SU    Shear  strengths  at  XE/YE.  5U(XE/YE>  is  equal  to  the  initial 
C       shear  strength  CO(YE)  plus  the  product  of  the  dissipated 
C       pore  pressure  at  XE/YE  and  the  C/PBar-ratio  CP(YE> 
C  HYE   No.  of  points  YE  in  vertical  direction. 
C  Nil"!   No.  of  intervals  in  horizontal  Dirn. 
C  MXT   NIM  numbers  of  points  XT  in  each  interval. 
C  HXE   NIM  no.  of  points  in  XE  in  each  interval 
C  MX    Total  no. of  points  XE 
C  CP    Vector  of  MYE  C/PBAR-rat ios 
C  CO    Vector  of  MYE  initial  shear  strengths 

C  III   Index  for  the  identification  of  the  following  cases — 
C       If  III»1,  all  elements  of  UA  are      assumed  to  be  zero. 
C       If  III=0#  some  or  all  elements  of  UA  are    not  equal  to  zero 
C 

DIMENSION  UAd>,  Rd),SUd),  MXTd),MXEd>,  COd  >,  CP  ( 1  ) 
C 

K-0 

IF  (III.  EQ.  0)  00  TO  1 
C 
C  ALL  ELEMENTS  OF  UA  ARE  EQUAL  TO  ZERO 
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C 

DO    2    I«1,MX 
DO    2    J»l.  MYE 
K«K+1 
SU(K)=CO( J) 

2  CONTINUE 
RETURN 

C 

C  The  shear  strength  consists  of  the  initial  strength  plus  some 
C  gain  due  to  dissipated  pore  pressures 
C 
1        IUBE=0 

IUND=0 

IRND=0 

DO  3  JJ=1, NIM 

IUB5=IUBE+1 

IUBE= IUBE+MYE*MXT ( JJ ) 

IUST=IUND+1 

IUND= IUND+MYE*MXE ( JJ ) 

IRST=IRND+1 

IRND=IRND+MXT ( JJ ) »MXE ( JJ ) 

CALL  MPRD  <UA,  R,  SU,  MYE,  MXT(  JJ),  MXE(  JJ),  IUB5,  IR5T,  IU5T) 

3  CONTINUE 

: 

DO  4  1=1, MX 

DO  4  J= 1 , MYE 

K=K+1 

SU ( K ) =CO ( J ) +SU ( K ) «CP ( J ) 

*        CONTINUE 
RETURN 
END 

:  END  OF  SUBROUTINE  GAIN 

* 

:    BEGIN  SUBROUTINE  GENER 

: 

SUBROUTINE  GENER  (P,F,  X,N) 
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C   This  subroutine  generates  the  N+l  Cotff.  of  the  charac terist ic 

C   equation  of  the  trldiagonal  matrix  P 

C   The  cotff.  are  *tor»d  In  vector  A.  P  must  bv  supplied  a*  a  one- 

C   dimensional  *rrm\i    with  Z»N  elements.  An  auxiliary  vector  r  with 

C   ( (N+l >*(N+4>/2-2>  elements  Is  used  for  computation.  Vector  X 

C   contains  the  N  roots  of  the  characteristic  equation. 

C 

DIMENSION  P(l  >.  A(25),  F(2),  X(l> 
C 

IOO 

F(1>=0 

F<2>=1  0 

IF«=2 

NF«N 
C 

C  COMPUTE  F(3)  THRU  F(N+2) 
C 

DO  1  1  =  1,  NF 

IF  =  IF+1 

IP«2*I 

F(IF)=P(IP-1 )*F(IF-2)+P(IP)eF(IF-l ) 
1       CONTINUE 
C 
4       IC=IC+1 

A(IC)=F(IF) 

IF(IC.  EQ.  N)  CO  TO  3 

NF=NF-1 
C 

C  COMPUTE  F(N+3>  THRU  F( (N+l )* (N+4 ) /2-2 ) 
C 

F(IF+1)=0 

IF=IF+2 

II=IF-NF-3 

IP*2»IC 

F(IF)=1. 

DO  2  1  =  1,  NF 

IF=IF+1 

11=11+1 

IP=IP+2 

F(IF)=P(IP-l)*F(IF-2)+P(IP)»F(IF-l)+F(II) 

2  CONTINUE 
CO  TO  4 

C 

3  A(IC+1>=1. 
C 

C  CALL  RROOT  FOR  DETERMINATION  OF  THE  REAL  ROOTS 
C 

CALL  RROOT  (A,  X.  N) 
C 

RETURN 

END 
C 

C  END  OF  SUBROUTINE  CENER 
C  BEGIN  SUBROUTINE  CENS 
C 

SUBROUTINE  CENS  (S,  M) 
C 

C  This  subroutine  generates  the  mathematical  molecule  for  the 
C  extended  Simpsons  (1/3)  rule  or  the  extended  trapezoidal 
C  rule.  Each  element  Is  divided  bg  the  total  length  of  the 
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C  integration  intirvjl,  thus  making  It  onlg  dependent  on  the 

C  number  (M-l  >  of  sub Intervals. 

C 

dimension  5( 1 ) 

if  <m  le  1)  return 

mm=m-i 

FAC-MM 

IF  (M.  EQ. <M/2)«2)  00  TO  3 
C 
C  SIMPSON-S  RULE  IF  M  IS  ODD 


C 


C 

FAC  =  1  /(3.  *FAC> 

1  =  1 

S  (  1  >  =FAC 
L        1=1+1 

S(I)=4.  »FAC 

1  =  1  +  1 

S(I)=FAC 

IF  (I.  EQ.  M)  RETURN 

S<I>=2.  »FAC 

CO  TO  1 
C 
C  TRAPEZOIDAL  RULE  IF  M  IS  EVEN 


E 


3       FAC  =  1.  /FAC 

S(l  )=FAC/2. 

S(M)=FAC/2. 

IF  (MM.  LT.  2)  RETURN 

DO  4  1=2, MM 
y  S(I)=FAC 

RETURN 

END 

END  OF  SUBROUTINE  GENS 
BEGIN  SUBROUTINE   INIT 


SUBROUTINE  INIT  ( XINP, YINP, MINP, XC, YC, YY, ZZ, DMIN > 

This  subroutine  selects  starting  values  for  the  variables  XC/YC 
If  Xc  -as  input-  is  equal  to  zero.  In  addition,  three  vectors 
are  generated  which  »Te    needed  in  subroutine  DETF5. 

XINP. YINP  Coord  of  the  embankment  X-section 

HINP  No.  of  Coord  points  XINP/YINP 

Xc»YC  Coord  of  the  center  of  the  arc 

DMIN  Minimum  increment  for  the  variables  XC/YC  and  R 

YY  Minimum  value  for  YC 

ZZ  Distance  below  max  YINP  down  to  which  YC  is  permissible 

H  Thickness  of  the  compressible  layer 

RHO(I)  Slope  of  the  line  connecting  XINP ( I ) /YINP ( I )  and 

XINP(I+1>/YINP(I+1 ) 

TAU  TAU=1. +RH0»«2 

PSI(I)  YINP-value  of  the  above  line  for  XINP-0 

DIMENSION  XINP(l), YINP(l) 

COMMON/  SAPOD/  IOUTP, W, H, GLOAD, CLOAD, NARC, NRAD 
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COMMON/  INDET/  RHO( 19) ,  TAU< 19) ,  PSI ( 19) 
C 

XX«XINP(MINP)-DMIN 

YY-YINP(l) 

DO  1  I=2,MINP 

U«I-1 

RHO<J)»(YINP(I )-YINP(J) >/(XINP(I)-XINP(J) ) 

TAU(J)  =  1.  +RHO< J)»RHO(J) 

PSI(J)«YINP(J)-RHO(J)«XINP(J) 

IF  (YINPC  J).  GT.  YY)  YY«=YINP(I) 

1  CONTINUE 
YY«YY-ZZ 

IF  (XC  NE  O.  )  COT0  2 

YC«YY 

R-YY+H 

A=YY-YINP(1 ) 

RR«R*R 

XC«(XX+SQRT(RR-YY#YY>+SGRT(RR-A*A> ) /2. 

2  RETURN 
END 

C 

C  END  OF  SUBROUTINE  INIT 

C 

C 

c 
c 

C  BEGIN  SUBROUTINE  LAGR 
C 

SUBROUTINE  LAGR  (  X,  Y,  M,  JST,  XX,  YY,  N) 
C 

C  This  subroutine  interpolates  the  values  of  the  function  Y(X) 
C  from  the  knpwn  YY(XX)  by  use  of  Lagranglan  polynomial 
c 

C  X   Vector  of  arguements  for  which  the  values  of  the  function  are 

C     Interpolated 

C  Y   Vector  of  interpolated  values  starting  with  Y(UST) 

C  M   No.  of  X-s 

C  XX  Vector  of  arguements  for  which  the  values  of  the  function 

C     ^Tt    known 

C  YY  Vector  of  known  valuea  of  the  function 

C  N   No.  of  xx-s 

C  RN  Auxiliary  vector 

c 

DIMENSION  X(l ), Y(l), XX(1), YY(1),RN(101 ) 


JS«JST-1 

DO    1    J=1,M 

JJ«JS+J 

1 

Y(JJ)=0. 

c 

DO   3   K=1,N 

DO   4    J=1,M 

4 

RN(J)«1. 

RD-1. 

c 

DO  2  1  =  1,  N 

IF  (I.  EQ.  K)  CO  TO  2 

DO  5  J«1,M 

RN(J)«RN(J)*(X(J)-XX(I) ) 
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RD-RD*(XX(K)-XX(I  ) ) 

2  CONTINUE 
RD«YY(K)/RD 
DO  6  J=  1 ,  M 
JJ«JS+J 

6        Y(JJ)«Y( JJ)+RN(J)»RD 

3  CONTINUE 

RETURN 
END 

:  END  OF  LAGR 


■ 

I  BEGIN  SUBROUTINE  MATR 

SUBROUTINE  MATR  (  IS,  IE,  M,  XV,  A,  XM  > 

:  Given  the  vector  XV  with  elements  XV( IS) ,  XV< IS+1 > ,  .  .  .  XV( IE) ,  this 

;  subroutine  generates  the  M  bg  IE*IS+1  matrix  XM,  whose  elements 

;  MTt    stored  one  d imens iona 1 1 y  as  follows — 

I  XM(1 )«1.  ,  XM(2)  =  (XV< IS)~A>,  XM(3)  =  (XV( I5)-A)**2,  .  .  .  .  XM(M>= 

I  <XV(IS)-A>*#<M-1),  XM(M+1)=1. , XM(M+2)=(XV(IS+1 )-A), . . . 

:  XM(M*(IE-IS+1 ) >=(XV(IE)-A)*«(M-1 ) 

■  Subtraction  of  A  is  done  to  increase  the  accuracy. 

DIMENSION  XV(1),XM(1) 

K=0 

DO  1  I  =  IS,  IE 

K=K+1 

XM(K)«=1 

XVT«XV(I )-A 

IF  STATEMENT  TO  INCLUDE  CASE  M=  1 


IF  (M.  EQ.  1)  GO  TO  1 

DO  2  U=2,  M 

L=K 

K«K*1 

2 

XM(K)=XM(L)*XVT 

1 

CONTINUE 

RETURN 

END 

i    END  OF  MATR 

|  begin  subroutine  minv 

SUBROUTINE  MINV  CA. N. D) 

This  subroutine  inverts  a  general  matrix  A  by  means  of  the  standard 
Gauss-Jordan  method. 

DIMENSION  A< 1),L< 1600), M( 1600) 
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C 

C  SEARCH  THE  LARGEST  ELEMENT 
C 

D-l  0 
NK=-N 

DO  80  K« 1 , N 
NK-NK+N 
L(K)=K 
M  ( K  )  «K 
KK-NK+K 
BIOA«=A(KK) 
DO  20  J=K, N 
IZ«N*(J-1 ) 
DO  20  I=K, N 
IJ»IZ+I 
10      IF  (ABS(BICA)-ABS(A(IJ) ) )  15,20,20 
15      BICA=A(IJ) 
L(K)=I 
M(K)=J 
20      CONTINUE 
C 

C  INTERCHANGE  ROWS 
C 

J=L ( K ) 

IF  (J-K)  35,35,25 
25      KI=K-N 

DO  30  I  =  1 , N 
KI=KI+N 
HOLD=-A(KI ) 
JI=KI-K+J 
A(KI )=A(JI ) 
30      A(JI)=HOLD 
C 

C  INTERCHANGE  COLUMNS 
C 
35      I=M(K> 

IF  (I-K)  45,45,38 
38      JP=N#(I-1) 
DO  40  U=l, N 
JK=NK+J 
JI=JP+J 
HOLD=-A ( JK ) 
A(JK)=A(JI) 
40      A(JI)=HOLD 
C 

C  Divide  column  by  minus  pivot  (value  of  pivot  element  is 

C  contained  in  BIGA) 

C 

45  IF  (BIGA)  48,46,48 

46  D=0.  0 
RETURN 

C  PAGE  P-80 
C 
48      DO  55  1  =  1,  N 

IF  (I-K)  50,  55,  50 
50      IK-NK+I 

A(IK)=A(IK)/(-BICA) 
55      CONTINUE 
C 
C  REDUCE  MATRIX 
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DO  65  I«1,N 

IK«NK+I 

IJ«=I-N 

DO  65  J=1.N 

IJ-IJ+N 

IF  (I-K)  60,65,60 
60  IF  (J-K)  62.65,62 
62      KJ«=IJ-I+K 

A ( IJ ) =A ( I K ) #A ( K J ) +A ( IJ ) 
65      CONTINUE 

DIVIDE  ROW  BY  PIVOT 

KU=K-N 

DO  75  J=1,N 

KJ=KJ+N 

IF  (J-K)  70,  75,  70 
70      A(KJ)=A(KJ)/BIGA 
75      CONTINUE 

PRODUCT  OF  PIVOTS 

D=D»BIGA 

REPLACE  PIVOT  BY  RECIPROCAL 

A(KK)=1. O/BIGA 
80      CONTINUE 

FINAL  ROW  AND  COLUMN  INTERCHANGE 

K=N 
100     K=K-1 

IF  (K)  150,  150,  105 
105     I=L(K) 

IF  (I-K)  120, 120, 108 
108     JG=N»(K-1> 

JR=N»(I-1  > 

DO  110  J=1,N 

JK=JQ+J 

HOLD=A ( JK ) 

JI=JR+J 

A(JK»=-A(JI ) 
110     A(JI)«=HOLD 
120     J=H(K) 

IF  (J-K)  100,  100,  125 
125     KI-K-N 

DO  130  1  =  1,  N 

KI-KI+N 

HOLD-A(KI) 

JI=KI-K+J 

A(KI)=-A(JI) 
130     A(JI)=HOLD 

CO  TO  100 
150     RETURN 

END 
I 
I  END  OF  SUBROUTINE  MINV 


c 
c 
c 

c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 


c 
c 
c 
c 
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BEGIN  SUBROUTINE  MODAL 

SUBROUTINE  MODAL  (LAYER- IBC, N, FIMP, RC, RK, XO, XE, EIQ, X, XI, F ) 


This  subroutine  generate*  the  coeff.  Matrix 
characteristic  equation  which  is  then  solve 
value*  EIG  knowing  the  eigenvalue*,  the  mo 
computed  to  generate  its  inverse  XI.  Genera 
on  the  boub  ndary  conditions  which  »T9  lndl 
CHXtftCi  RK,  XDand  XE 


P,  determines  the 
d  to  give  the  elgen 
dal  metr l x  X  1* 
tlon  of  r  depend* 
cated  by  LAYEH,  IBC 


e  layer  gives 

lary  conditions 

at  bottom 

bottom 
;om 

pper  layer) 

wer/upper  layer) 

in.   XO«=0.   if  LAYER.  GT.  1 

in.   XE«=H  If  LAYER.  GT.  1 


LAYER      Index  for  ldentif iac t i on  of  drainage  condition  and 

layer  interface  If  any. 
LAYER^l    Mori  Drainage 

LAYER«2    Vert,  drainage,  homogeneous  soil 
LAYER.  GE.  4  -Vert,  drainage,  two  layers  wher 

the  location  of  the  Interface. 
IBC        Index  for  Identification  of  bound 
IBC=l      Vert,  drainage-  Impeded  drainage 
IBC«=2      Vert,  drainage-  Free  drainage  at 
XBC=3    Vert,  drainage-  No  drainage  at  bott 
FIMP     Impeded  drainage  factor 
RC       Ratio  of  coeff.  of  consol.   (Lower/u 
RK       Ratio  of  coeff.  of  permeability  (lo 
XO       Lower  boundary  of  the  solution  doma 
XE       Upper  boundary  of  the  solution  doma 
EIG      Vector  of  eigenvalues 

X  Modal  matr i x=Matr i x  of  eigenvectors 

XI  Inverse  of  X 

D,  F      Auxiliary  matrices 
P        Coeff.  matrix 

N        No.  of  ei genval ues=No  of  Nodal  points  in  the  program 
numbering  system. 

DIMENSION  P(100)»D(50),F(1),EIG(1),X(1),XI(1) 


IF  (IBC.  EQ.  4)  GO  TO  25 
IF  (LAYER.  NE.  2)  GO  TO  1 
IF  (IBC. NE. 2)  GO  TO  2 

COMPUTE  EIOEN  VALUES  AND  MODAL  MATRIX  DIRECTLY  FOR  LAYER«=2 
AND  IBC<=2 

AN=N+1 

AN=3. 141392653389793/AN 

KJ=0 

DO  3  J=1,N 

AJ-J 

EI0(J)«=-2.  +2.  »COS(AJ*AN) 

DO  3  K=1,N 
KJ-KJ+1 
AK«K 

X ( K J ) =S I N ( AK« A J* AN  > 
I       CONTINUE 
GO  TO  4 


C 
C 
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IF  (IBC. NE  3)  W)  TO  1 

:  COMPUTE  EIGEN  VALUES  AND  MODAL  MATRIX  DIRECTLY  FOR  LAYER" 
;  AND  IBC=3 

AN=2*N 

AN=3. 14 1592653589793/ AN 

KJ=0 

DO  5  J=l, N 

AJ=2»J-1 

EIG(J>=-2  +2.  *COS(AJ»AN) 

DO  5  K=l,  N 

KJ»KJ+1 

AK=K 

X ( K J ) «S I N ( AK» A J»AN ) 

CONTINUE 

CO  TO  4 

:  GENERATE  MATRICES  P  AND  D  FOR  CASES  WHERE  2.  NE  IBC  NE.  3 

I  D(l )=1  O 
P(l )=0  O 
P(2)=2.  O 
IF  (IBC.  LT.  4)  GO  TO  6 

:  CASE  OF  HORIZONTAL  FLOW 

25      AN=2»N 

AN=3. 141592653589793/AN 
KJ=0 

DO  7  J= 1 , N 

AJ=2*J-1 

EIG(J)=-2.  +2.  *COS(AJ*AN) 

DO  7  K=l,  N 

KJ=KJ+1 

AK=K 

X ( K J ) =S I N ( AK* A J* AN ) 

CONTINUE 

GO  TO  4 


GENERATE  P  AND  D  FOR  VERTICAL  DRAINAGE 

b       INT=N 

IF  (LAYER.  GT.2)  INT«LAYER-2 
IF  (LAYER.  EQ.  3)  I»=l 
CO  TO  27 


DO  9  1=2,  INT 

IE=2»I 

P(IE-1>«=-1. 

P(IE)=2. 

D(I)  =  1. 

CONTINUE 
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IF  (INT.  NE.  N)  OO  TO  10 

P(IE)=2.  -FItIP 

CO  TO  8 
C 
C 

C  COEFFICIENTS  OF  P  AND  D  FOR  THE  LAYERED  CASE 
C 
10      PO«-RC*RC 

PE«2.  »RC 

FIN«PE/(RC+RK) 

P(IE+1  )«=-FIN 

P(IE+2)-FIN*(l.  +RK) 

DCINT+1  >«=FIN 

P  (  IE+3 )  =-FIN*RC-»RK 

P(IE+4>«PE 

D(INT+2)=FIN*RC 

INT=INT+3 


DO  11  I  =  INT,N 

IE=2«I 

P(IE-1 )=P0 

P(IE)=PE 

D(I )=RC*D(I-1 ) 

11 

CONTINUE 

C 

IF  (IBCV.  NE.3)  GO  TO  12 

P(IE-1)=2. *P0 

D(N)=2.  *D(N) 

CO  TO  8 
C 

12      IF  (IBCV.  EG  1>  P(IE)=RC«(2. -FIMP) 
C 

C  Call  GENER  to  generate  the  characteristic  equtaion  and  to  compute 
C  the  elgen  values  EIG 
C 

8        CALL  GENER  (P,F,  EIG.N) 
C 

C  Compute  eigenvectors  from  Pi  D  and  EIG 
c 

HEND=N-1 

NN=2*N 

DO  15  K=l,  N 

NK=N«K 

X(NK)=1. 

X(NK-1 )«P(NN)+EIG(K) 

15  CONTINUE 
C 

DO  16  ME=2»  MEND 

NN=NN-2 

DO  16  K«=1,N 

NK=N»K-ME 

X(NK>=P<NN+l)*X(NK+2)+<P(NN>+EIG(K)  >»X(NK+1  ) 

16  CONTINUE 
C 

C  Premultiplg  matrix  X  by  matrix  D 

C  Restore  the  X-elements  since  MINV  destroys  the  original  matrix 

C 

1-0 

DO  20  J=l. N 

DO  20  K=1,N 
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20      X(I>=X(I>*D(K> 
4       NN=N*N 

DO  17  1  =  1, NN 
XI(I>=X(I> 
17      CONTINUE 
C 

C  CALL  MINV  FOR  INVERSION 
C 


CALL  MINV  (XI. N, DET ) 


C 


RETURN 
END 

C 

C  END  OF   SUBROUTINE  MODAL 

C 

SUBROUTINE  MPRD  BEGINS 

SUBROUTINE  MPRD  (A, B. R, N, M, L, IAS, IBS, IRS) 

C  This  subroutine  premul t ip 1 ies  the  li*L  matrix  B  by  the  N*M 

C  matrix  A  and  stores  the  result  in  the  N*L  matrix  R.  The  first 

C  elements  of  the  matrices  are  A( IAS) , B ( IBS) , R ( IRS) .  The  normal 

C  case  will  be  that  where  IAS=IB5=IRS=1   If  all  matrices  are 

Z  stored  one  dimensionality,  the  following  formula  for  the  element 

Z  R(IR)  is  obtained R  (  IR  >=R  ( J-MK-1  >*N+IRS-1  )=5UMC  1  =  1,  M)  of 

Z  A(J+(I-1)*N+IAS-1 )»B( I+(K-1 )»M+IBS-1 ) 

DIMENSION  A(l ), B(l ),R(1 ) 

IR=IRS-1 
KM=IBS-M-1 
DO  1  K= 1 .  L 
KM=KM+M 
DO  1  J=1.N 
IR=IR+1 
IA=J+IAS-N-1 
IB=KM 
R(IR)=0. 
DO  1  1  =  1,  M 
IA=IA+N 
IB=IB+1 

R(IR)=R< IR)+A(IA)*B(IB> 
1       CONTINUE 
RETURN 
END 

:  END  OF  MPRD 

I  BEGIN  RROOT 

SUBROUTINE  RROOT  (COF,  XR.M) 

Z  This  subroutine  computes  the  real  roots  of  an  M-th  degree 

:  polynomial.  COF  is  the  coeff.  vector  with  M+l  elements. 

I  XR  Is  the  vector  containing  the  M  roots.  M  must  be 

:  greater  than  2  but  less  than  SO  because  of  stotage 

:  allocation.  The  polgnomial  has  the  form  F(X)=0.  = 

I  COF(  1  >+COF(2>*X+ -»-COF(M-»-l  )*X«*M 

|  A,  B,  C  are  auxiliary  vectors  of  length  M+l 
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C  EPS  gives  the  required  accuracy. 
C 

DIMENSION  COF(l), XR ( 1 ) , A ( 50) , B ( SO ) , C ( 50 ) 
C 

EPS=1  /1OO0 

N=M 

NN=M+1 

X-O. 
C 

C  Rename  original  coeff.  for  final  iteration. 
c 

DO  1  U=  1 .  NN 
A(J)=COF(J> 

1  CONTINUE 
C 

C  Applg  newtons  rule  X ( J+l >  =  X ( J)-FX( X ( J) ) / ( (D?DX ) <F< XJ> ) 
C  and  obtain  the  values  of  the  function  and  its  derivative 
C  for  the  guess  X(J)  from  HOrners  scheme.  The  roots  mtb 
C  always  approximated  from  above  and  the  last  root  is  used 
C  as  initial  guess  for  the  reduced  polynomial. 
C 

2  B  ( NN  )  =A  ( NN  ) 
C ( NN ) =A ( NN ) 

4        I«=NN 
C 

DO  3  U=2.  N 

1  =  1-1 

B(I )=A(I )+X*B(I+l ) 

C(I)=B(I)+X*C(I+1 ) 

3  CONTINUE 
B(1)=A(1 >+X*B<2> 

C 

C  Newtons  rule  and  accuracy  check 

C 

DX=-B(1 )/C(2) 

X«X+DX 

EPAB=EPS«ABS(X) 

IF  (ABS(DX).  GT.  EPAB)  CO  TO  4 

XR(N)=X 
C 

C  Define  coeff.  of  the  reduced  polynomial. 
C 

DO  6  J= 1 , N 

A(J)=B(J+1 ) 
6       CONTINUE 

NN=N 

N=N-1 

IF  (N.  GT.  1)  GO  TO  2 

XR(1)=-A(1 )/A(2) 
C 

C  The  roots  are  now  stored  as  XR  <  1  > .  LT.  XR  (2) .  LT LT.  XR(fl) 

C  Make  the  final  iteration  using  the  original  polynomial 
C 

MM=M-1 

DO  7  K=1,MM 
9       I=f1+1 

DO  8  J=2, M 

1  =  1-1 

B(I)=COF(I)+XR(K)*B(I+l ) 

C(I )=B( I )+XR(K)*C(I+l ) 
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8        CONTINUE 

B( 1 >=COF(l )+XR(K)*B(2) 
DX«-B< 1 >/C(2) 
XR(K)«XR(K)+DX 

EPABK=EPS*ABS ( XR ( K ) ) 
IF  (ABS(DX).  CT  EPABK)  00  TO  9 
7       CONTINUE 

> 

RETURN 
END 

END  OF  RROOT 


SUBROUTINE  STAB 

SUBROUTINE  STAB  ( XC,  YC, R,  X INP, YINP, MINP, MX, MYE, 5U, FX, D, DM, YY ) 

This  subroutine  searches  automatically  for  the  smmalest  factor 
of  safety  starting  with  the  initial  data  set  XCYOR 

The  parameters  have  the  following  significance 

XcYC  Coord  of  the  center  of  the  arc 

R  Radius  of  the  arc 

XINP  Coord  of  the  points  describing  the  x-section  of 

YINP  the  embankment 

MINP  No.  of  XINP/YINP  points 

MX  No.  of  equally  spaced  points  in  X-dlrn 

MYE  No.  of  equally  spaced  points  in  Y-dirn 

SU  Vector  of  shear  strengths  with  MX*MYE  elements 

FX  Minimum  factor  of  safety 

D  Maximum  step  size  be  used  in  the  search  program 

DM  Minimum  step  size  be  used  in  the  search  program 

YY  Minimum  permissible  value  for  YC 

X» Y, Z  Auxiliary  vectors 

DIMENSION  XINP(l),  YINP(l),  SU(1),X(2).Y(2),Z(2) 

Evaluate  safety  factor  at  initial  base  point 

X(1)«=YC 

X(2)=XC 

KEN=-1 
1 1      KEN=KEN+ 1 

DEL-D 

CALL  VARYR  (  X  ( 1  ) ,  X  (2  > ,  R,  XINP,  YINP,  MINP,  MX,  MYE,  SU,  FX,  DM,  YY) 
4       FS=FX 

DO  1  1  =  1,2 

Y(I)=X(I) 
1       Z(I)=X(I) 

EXPLORATORY  MOVES 

DO  2  1=1.2 

Y(I>=Z(I)+DEL 

CALL  VARYR  (  Y(  1  ) ,  Y(2  ) ,  R,  XINP,  YINP,  MINP,  MX,  MYE,  SU,  FY,  DM,  YY) 

IF  (FY.  LT.  FS)  CO  TO  5 
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Y(I)«Z(I )-DEL 

CALL  VARYR  ( Y( 1 > ,  Y(2) , R,  XINP,  YINP,  MINP,  MX, MYE, BU, FY, DM, YY) 

IF  (FY.  LT.  FS)  CO  TO  5 

Y(I)=Z(I) 

©O  TO  2 

5  FS=FY 

2  CONTINUE 

IF  (FS  LT.  FX)  CO  TO  6 

IF  (DEL  LE.  DM)  CO  TO  10 

DEL«DEL/2 

CO  TO  4 
C 

C  PATTERN  MOVE 
C 

6  DO  3  1  =  1,2 
A=Y(I)-X(I) 
IF  (A)  7,8,9 

7  A=-2.  *DEL 
CO  TO  8 

9  A=2.  *DEL 

8  B=X(I) 
X(I)=Y(I) 
Y(I)=B+A 

3  CONTINUE 
FX=FS 

CALL  VARYR  ( Y( 1 ),  Y(2) , R,  XINP, YINP, MINP, MX,  MYE,  SU,  FS,  DM,  YY) 

IF  (FS  LT.  FX)  GO  TO  6 

CO  TO  4 
C 

C  Start  new  search  if  the  circle  giving  the  minimum  safety  factor 
C  so  far  does  not  outcrop  at  or  in  front  of  the  embankment  toe 
C 

10  IF  (KEN.  EQ.  1)  GO  TO  12 
FMIN=FX 

13  YC=X(1) 
XC=X(2> 

IF  (KEN.  EQ.  1  )  GO  TO  14 

IF  ( (XC+SQRT(R»R-YC«YC) ).  LT.  XINP (MINP) )  GO  TO  11 
GO  TO  14 
12      IF  (FMIN.  GT.  FX)  GO  TO  13 
FX-FMIN 

14  RETURN 
C 

END 
C 

C  END  OF  STAB 
C 
C 
C 

SUBROUTINE  VARYR  (YC,  XC, R,  XINP, YINP, MINP, MX, MYE, SU, FS, DMIN, YY) 
C 

C  This  subroutine  evaluates  the  factors  of  sefety  for  NRAD 
C  trial  arcs  with  the  same  center  XC/YC,  but  different  radii. 
C 

DIMENSION  XINP  (1). YINP  (D.SU(l)iF(lO) 
C        DIMENSION  C(6) 
C 

COMMON/  SAPOD/  IOUTP, W, H, OLOAD, CLOAD, NARC, NRAD 
C 
C  Arcs  whose  centers  lie  below  YY  *re    not  considered 
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IF  (YC.  LT.  YY)  go  to  10 

;  Determine  minimum  and  Milnum  radi  possible 

RMIN^YC 

IF    <XC    LT    XINP(MINP) >    00    TO    1 
AI "XC-X IMP ( MINP >*DMIN 
RMIN-SORT<AI*AI"»-YC«YC  ) 

1  RMAX-YC+H 
AI«YC-YINP(1 ) 
AI«SQRT<AI*AI+XC«XC ) 

IF    (RMAX.CT.  AI)    RMAX«AI 
IF    CRMAX.  OE    RMIN)    ©0    TO   2 
10  R«0. 

FS=    1E36 
FSM.OE35 
CO    TO    3 

2  R«RMAX 

)  Determine  the  factor  of  safety  for  the  maximum  radius 

CALL  DETFS  ( XC, YC. R,  X INP, YINP, MINP, MX, MYE,  SU,  FS ) 

IF  (RMAX  LE  (1.02*RMIN>)  CO  TO  3 

NN=NRAD-1 

IF  (NN  EG  0)  CO  TO  3 

AI«NN 

DELTA=(RMAX-RMIN) /AI 

Determine  the  factors  of  safety  for  arcs  with  radii 

RR«RMIN+C  1-1  )*DELTA,  and  store  them  in  vector  F  at  place  2*1-1 

RR«1.  00001*RMIN-DELTA 

DO  4  U«  1 ,  NN 

RR«RR+DELTA 

CALL  DETFS  ( XC, YC, RR, XINP, YINP, MINP, MX, MYE. SU, F( J) ) 

4  CONTINUE 

Search  for  the  minimum  factor  of  safety  which  is  then 
returned  to  the  calling  program  together  with  the 
corresponding  radius 

DO  3  1=1, NN 

IF  <F(I).  CE.  FS)  CO  TO  5 

FS-F(I) 

AI-I-1 

R=RMIN+AI»DELTA 

5  CONTINUE 

3  RETURN 
END 

END  OF  VARYR 

BEGIN  SUBROUTINE  EFCEN 

SUBROUTINE  EFCEN  (PSI,  T,  EIC,  IVAR,  MM,  NN,  D,  LI  ) 

This  subroutine  generates  the  time-dependent  diagonal  matrix  D 
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C  PSI  Vector  which  considers  the  influence  of  the  soil  parameters 

C  T  Time  for  which  the  diagonal  matrix  D  is  generated 

C  EIG  Vector  of  elgen  values 

C  IVAR=0  Const,  soil  parameters 

C  IVAR=l  Variable  soil  parameters 

C  MM=  No   of  points  XT  for  which  D  must  be  evaluated 

C  NN  No.  of  eigenvalues 

C  D  Diagonal  matrix  to  be  returned 

c 


DIMENSION  PSIO  >,EIC(1  ),  D(l  > 


C 

c 


EF«=64. 
IF  (T.  NE  O.  )  CO  TO  7 
LAST=MM*NN 
DO  8  1=1, LAST 
8       D(I  )*1.  0 
RETURN 


7 
C 

c 

c 

IF  (IVAR.  EQ.  0)  GO  TO  1 

VARIABLE  SOIL  PARAMETERS 

11=0 

DO  2  J=1,MM 

PSIT=PSI (J)#T 

DO  2  1=1, NN 

if  (MM  EQ. 1)  PSIT=PSI(I)»T 

11=11+1 

D(II)=10. **( (PSIT*EIG(I )/2  302585 )/EF) 

2 

CONTINUE 

c 

C  1 

c 

1 

RETURN 

:ONSTANT  SOIL  PARAMETERS 

PSIT=PSI(1)*T 

do  3  1=1, NN 

D(I)  =  10.  ♦  »( (PSIT*EIG(I)/2.  302585)/EF) 
IF  (MM  LT.  2)  GOTO  3 
11  =  1 

DO  6  J=2, MM 
II=II+NN 
6        D(II)=D(I) 
3       CONTINUE 
RETURN 
C 

END 
C 
C  END  OF  SUBROUTINE  EFGEN 


2 


